能否在panel上动态添加label,如何实现。感谢！

Question

动态创建一个LABEL控件，然后指定LABEL的PARENT为PANEL就行了；
比如：Label1.parent:=Panel1

Answer 1

mypanel:Tpanel;
mylabel:TLabel;       
... ...
 if not assigned(mylabel) then
        begin
                mylabel:=TLabel.Create(mypanel);
                mylabel.Parent:=mypanel;
                mylabel.Caption:='autocreate label on panel';
        end;

Answer 2

首先感谢OysterLQD!
我使用的是MDI。
使用OysterLQD的方法后，在关闭窗体的时侯出现了错误提示框'Access violation at...'
不知如何解决？

Answer 3

procedure TChildForm.CreateTable(XXXXXX)
var
  Label: TLabel;
begin
  Label := TLabel.Create(self);
  Label.Parent := APanel;
  Label.Caption := 'hello taxi!';
end;

Answer 4

procedure TChildForm.CreateTable(XXXXXX)
var
  Label: TLabel;
begin
  Label := TLabel.Create(self);
  Label.Parent := APanel;
  Label.Caption := 'hello taxi!';
end;

Answer 5

加上这一句
mypanel:=Tpanel.Create(self);mylabel:=TLabel.Create(mypanel);

Answer 6

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TLabel.Create(Self) do begin
    Parent := Panel1;
    Caption := '我只是另一种方法';
    Left := 1;
    Top := 1;
  end;
end;