在DELPHI中如何动态创建一个LABEL控件?

Question

在DELPHI中如何动态创建一个LABEL控件?

Answer 1

var 
 label1:TLabel
...
label1:=TLabel.Create(self)

Answer 2

var 
 label1:TLabel
begin
label1:=TLabel.Create(self);
label1.parent:=form1;
label1.left:=10;
label1.top:=10;
label1.width:=100;
label1.heigt:=30;
end;

Answer 3

procedure Button1Click(Sender: TObject);
var
  MyLabel: TLabel;
begin
  MyLabel := TLabel.Create(Self);
  MyLabe1.Parent := Form1;
  MyLabel.Left := 100;
  MyLabel.Top := 100;
  MyLabel.Width := 100;
  MyLabel.Height := 30;
  MyLabel.Caption := '动态建立的Label';
end;

Answer 4

procedure Button1Click(Sender: TObject);
var
  MyLabel: TLabel;
begin
  MyLabel := TLabel.Create(Self);
  with MyLabe1 do begin 
    Parent := Form1;
    Left := 100;
    Top := 100;
    Width := 100;
    Height := 30;
    Caption := '动态建立的Label';
  end;
end;