类的问题，在线等

Question

我新建了一个类
继承了Tpanel类
我现在panel上建一个Label
想把建Label的代码写在构造函数里面
不知道这个parent属性怎么设
代码如下
TEditConvertType = class (TPanel)
    private
      { Private declarations }
    protected
      { Protected declarations }
    public
      Lable1:TLabel;
      Constructor Create(AOwner:TComponent); override;
    published
      { Published declarations }
  end;
Constructor TEditConvertType.Create(AOwner:TComponent);
  begin
    Inherited Create(AOwner); //顺便问一个这个代表什么意思
    Align:=alNone;
    Alignment:=taCenter;
    Anchors:=[akLeft,akTop,akRight];
    BevelInner:=bvNone;
    BevelOuter:=bvNone;
    Color:=clwhite;
    Height:=114;
    Left:=56;
    Top:=16;
    Width:=593;
    //定义组件的位置
    Lable1:=TLabel.Create(Self);
    Lable1.Parent:=parent;   //此处有问题
    Lable1.Top:=16;
    Lable1.Height:=114;
    Lable1.Left:=56;
    Lable1.Width:=16;
    Lable1.Caption:='ssssssssssssss' ;
    Lable1.name:='Lable1';
  end;谢谢大虾们指点
谢谢

Answer 1

Inherited Create(AOwner); //顺便问一个这个代表什么意思
这个是继承父类的构造函数实现.意思就是先执行父类的构造函数.Lable1.Parent:=parent;   //此处有问题 
Lable1.Parent:=Self;   label1在Panel上显示.它的父就是你现在编写的这个类.self

Answer 2

Inherited Create(AOwner); 
当然应该可能就是先使用owner的构造函数处理，再用自己的处理

Answer 3

AOwner在析构的时候会负责把这个类的实例释放掉，用户不用关心

Answer 4

Constructor TEditConvertType.Create(AOwner:TComponent);
  begin
    Inherited Create(AOwner); //顺便问一个这个代表什么意思
    Align:=alNone;
    Alignment:=taCenter;
    Anchors:=[akLeft,akTop,akRight];
    BevelInner:=bvNone;
    BevelOuter:=bvNone;
    Color:=clwhite;
    Height:=114;
    Left:=56;
    Top:=16;
    Width:=593;
    //定义组件的位置
    Lable1:=TLabel.Create(Self);
    Lable1.Parent:=parent;   //此处有问题
////Lable1.Parent:=self;//就是把TEditConvertType新建的对象作为parent
    Lable1.Top:=16;
    Lable1.Height:=114;
    Lable1.Left:=56;
    Lable1.Width:=16;
    Lable1.Caption:='ssssssssssssss' ;
    Lable1.name:='Lable1';
  end;
AOwner是所有者，Parent是控件显示的承载体，通常Aowner和Parent是同一个。

Answer 5

你可以看《delphi精要》，里面有很详细的介绍。