本人是刚学习delphi,是个小菜。今天下午在模仿做一个例子时候,以文本方式查看一个表单的控件属性,发现有一些inherited(下面附有.dfm文件)。我的问题是:这个表单是不是继承过来的呢?怎么样操作设计表单会产生inherited? .dfm文件如下:
inherited BookReturn: TBookReturn
Left = 658
Top = 171
Width = 783
Height = 472
HorzScrollBar.Position = 0
Caption = '¼Ç¼Êý'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
inherited ToolBar1: TToolBar [0]
Left = 0
Width = 758
Visible = False
end
inherited DBGrid1: TDBGrid [1]
Left = 0
Top = 56
Height = 257
Columns = <
item
Expanded = False
FieldName = '读者编号'
Width = 68
Visible = True
end
item
Expanded = False
FieldName = '读者姓名'
Visible = True
end>
end
inherited Panel2: TPanel [2]
Left = 0
Top = 320
Height = 122
Enabled = True
object BitBtn2: TBitBtn
Left = 80
Top = 40
Width = 145
Height = 41
Caption = '¹é»¹ËùÑ¡ÔñµÄͼÊé'
TabOrder = 0
OnClick = BitBtn2Click
Kind = bkIgnore
end
end
inherited Panel1: TPanel [3]
Left = 0
Top = 0
inherited Label3: TLabel
Caption = '¶ÁÕß±àºÅ'
end
inherited Label4: TLabel
Caption = 'ͼÊé±àºÅ'
end
inherited Label5: TLabel
Caption = '¶ÁÕßÐÕÃû'
end
end
inherited ImageList1: TImageList
Left = 478
Top = 0
end
inherited ADOTable1: TADOTable
Left = 510
Top = 0
end
inherited DataSource1: TDataSource
Left = 446
Top = 65528
end
inherited ADOQuery1: TADOQuery
Left = 542
Top = 0
end
object ADOQuery2: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=168;Persist Security Info=True;User' +
' ID=sa;Initial Catalog=libbook;Data Source=127.0.0.1,1433'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.*,b.*,c.* from tsjy a,tsxx b,dzxx c '
'where (a.bh=b.bh)and(a.dzbh=c.dzbh)and(is_zx=''是'')
Left = 574
Top = 65528
end
object ADOCommand1: TADOCommand
ConnectionString =
'Provider=SQLOLEDB.1;Password=168;Persist Security Info=True;User' +
' ID=sa;Initial Catalog=libbook;Data Source=127.0.0.1,1433'
Parameters = <>
Left = 646
Top = 65528
end
end
inherited BookReturn: TBookReturn
Left = 658
Top = 171
Width = 783
Height = 472
HorzScrollBar.Position = 0
Caption = '¼Ç¼Êý'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
inherited ToolBar1: TToolBar [0]
Left = 0
Width = 758
Visible = False
end
inherited DBGrid1: TDBGrid [1]
Left = 0
Top = 56
Height = 257
Columns = <
item
Expanded = False
FieldName = '读者编号'
Width = 68
Visible = True
end
item
Expanded = False
FieldName = '读者姓名'
Visible = True
end>
end
inherited Panel2: TPanel [2]
Left = 0
Top = 320
Height = 122
Enabled = True
object BitBtn2: TBitBtn
Left = 80
Top = 40
Width = 145
Height = 41
Caption = '¹é»¹ËùÑ¡ÔñµÄͼÊé'
TabOrder = 0
OnClick = BitBtn2Click
Kind = bkIgnore
end
end
inherited Panel1: TPanel [3]
Left = 0
Top = 0
inherited Label3: TLabel
Caption = '¶ÁÕß±àºÅ'
end
inherited Label4: TLabel
Caption = 'ͼÊé±àºÅ'
end
inherited Label5: TLabel
Caption = '¶ÁÕßÐÕÃû'
end
end
inherited ImageList1: TImageList
Left = 478
Top = 0
end
inherited ADOTable1: TADOTable
Left = 510
Top = 0
end
inherited DataSource1: TDataSource
Left = 446
Top = 65528
end
inherited ADOQuery1: TADOQuery
Left = 542
Top = 0
end
object ADOQuery2: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=168;Persist Security Info=True;User' +
' ID=sa;Initial Catalog=libbook;Data Source=127.0.0.1,1433'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.*,b.*,c.* from tsjy a,tsxx b,dzxx c '
'where (a.bh=b.bh)and(a.dzbh=c.dzbh)and(is_zx=''是'')
Left = 574
Top = 65528
end
object ADOCommand1: TADOCommand
ConnectionString =
'Provider=SQLOLEDB.1;Password=168;Persist Security Info=True;User' +
' ID=sa;Initial Catalog=libbook;Data Source=127.0.0.1,1433'
Parameters = <>
Left = 646
Top = 65528
end
end
比如说,你的当前窗体是从一个自己设计的窗体继承过来的,并且BookReturn控件,在父类窗体中存在。
举例说:
TForm1 = Class(TFOrm)
其中FOrm1中有Button1控件TForm2 = Class(TFOrm1)
则,使用记事本打开Form2.dfm, 就会有inherited Button1: TButton