如何动态创建控件

Question

例如：TLabel

Answer 1

var label1:Tlabel;
begin
label1:=tlabel.create(self);
label1.caption := "label1";
label1.parent:=form1;
end;

Answer 2

可以
var
 lab: array [1..10] of tlabel; 
lab[i]:=tlabel.create(self);
lab[i].parent:=form1;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
HowManyUWanted: Integer;
begin
HowManyUWanted := 12;
for i:=0 to HowManyUWanted -1 do begin
   With TButton.Create(Self) do begin
      Top := i * Height;
      Parent := Self;
    end;
  end;
end;

Answer 4

iltg() 你好，按你的方发提示
[Error] Unit1.pas(29): Undeclared identifier: 'tlabel'