请教动态生成Label

Question

请教在Form上动态生成Label的代码

Answer 1

例如这样
var
Label2:TLabel;
begin
    Label2 := TLabel.Create(self);
    Label2.Parent:= Form1;
    Label2.Left:=20;
    Label2.Caption:='AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA';end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
label1:TLabel;
begin
label1:=Tlabel.Create(application);
label1.Parent:=form1;
label1.Caption:='fdfdf';
label1.Top:=10;
label1.Left:=10;
end;

Answer 3

uses StdCtrls;var
  MyLabel:TLabel;begin
  MyLabel:=TLabel.Create(Self);
  with MyLabel do
  begin
    Top:=10;
    Left:=10;
    Parent:=Self; 
    Caption:='MyLabel';
  end;
end;