本人是刚学习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

解决方案 »

  1.   

    通常窗体是继承一个自定义的窗体时,会出现这种继承
    比如说,你的当前窗体是从一个自己设计的窗体继承过来的,并且BookReturn控件,在父类窗体中存在。
    举例说:
    TForm1 = Class(TFOrm)
    其中FOrm1中有Button1控件TForm2 = Class(TFOrm1)
    则,使用记事本打开Form2.dfm, 就会有inherited Button1: TButton