一个同学当毕业设计用的拿代码出来

				object Report_Frm_Select: TReport_Frm_Select
				  Left = 329
				  Top = 210
				  BorderStyle = bsDialog
				  Caption = #25253#34920#27169#26495#36873#25321#23545#35805#26694
				  ClientHeight = 295
				  ClientWidth = 361
				  Color = clBtnFace
				  Font.Charset = GB2312_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = #23435#20307
				  Font.Style = []
				  OldCreateOrder = False
				  Position = poScreenCenter
				  PixelsPerInch = 96
				  TextHeight = 12
				  object Label1: TLabel
				    Left = 19
				    Top = 17
				    Width = 180
				    Height = 12
				    Caption = #35831#36873#25321#25171#21360#65288#39044#35272#65289#20351#29992#30340#27169#26495#65306
				  end
				  object StringGrid_Model: TStringGrid
				    Left = 18
				    Top = 38
				    Width = 326
				    Height = 204
				    ColCount = 3
				    RowCount = 10
				    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
				    ScrollBars = ssVertical
				    TabOrder = 0
				    OnDblClick = StringGrid_ModelDblClick
				  end
				  object BitBtn1: TBitBtn
				    Left = 191
				    Top = 258
				    Width = 75
				    Height = 25
				    Caption = #30830#23450
				    TabOrder = 1
				    Kind = bkOK
				  end
				  object BitBtn2: TBitBtn
				    Left = 269
				    Top = 258
				    Width = 75
				    Height = 25
				    Caption = #21462#28040
				    TabOrder = 2
				    Kind = bkCancel
				  end
				  object BitBtn3: TBitBtn
				    Left = 18
				    Top = 258
				    Width = 136
				    Height = 25
				    Caption = #35774#32622#20026#40664#35748#20540'(&D)'
				    TabOrder = 3
				    OnClick = BitBtn3Click
				    NumGlyphs = 2
				  end
				end