我想用代码在form上添加一个Lable
使用了lable对象的Create方法:label:=Tlable.Create()
我想知道括号中的参数应该添什么?
是什么意思?
我试着使用了TLabel.Create(self)和TLable.Create(Form1),对象到是创建成功了,就上Form上没有显示,
请大家帮一下蛮,能把代码留下就最好了
谢谢

解决方案 »

  1.   

    设置label的parent:=self  和top left  caption什么的
      

  2.   

    Parent
    Left 
    Top
    width
    Height
    等属性
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Label1 : TLabel;
    begin
      Label1:=TLabel.Create(self);
      Label1.Caption:='ddddd';
      Label1.Height:=20;
      Label1.Width:=40;
      Label1.Left:=100;
      Label1.Top:=50;
      Label1.Visible:=true;
      Label1.Parent:=Form1;
      Label1.Update;end;
      

  4.   

    你的显示不出来肯定是没有设置label.parent := form1;Flabel := Tlabel.Create(self);
        Flabel.Caption :='new label';
        FLabel.Top :=120;
        Flabel.Left :=120;
        Flabel.Parent := form1;//没有设置parent的话,label就不知道它要放置的容器是那一个。
      

  5.   

    var
    l1 : Tlabell1  := Tlabel.Create(self);
    with l1 do
    begin
        Top :=100;
        Left :=100;
    //top 和left是为了l1不显示能看到不被看见
        Parent := form1;//必须要写是放在那个窗体上
    end;
      

  6.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Label1 : TLabel;
    begin
      Label1:=TLabel.Create(self);
      Label1.Caption:='ddddd';
      Label1.Height:=20;
      Label1.Width:=40;
      Label1.Left:=100;
      Label1.Top:=50;
      Label1.Visible:=true;
      Label1.Parent:=Form1;
      Label1.Update;end;肯定行
      

  7.   

    var
    newlabel : Tlabelnewlabel  := Tlabel.Create(self);
    with newlabel do
    begin
        Top :=10;
        Left :=10;
        width:=20;
        height:= 20;
     .........    
       Parent := form1;//给它一个父类
    end;