如何在同一个FORM下动态生成多个控件？

[zywuhao]

如何在同一个FORM下动态生成多个label控件。而控件个数是根据我的需要来确定。这样的代码怎么来写啊。谢谢了！！

[老之]

procedure TForm1.Button1Click(Sender: TObject);
var aLabel:TLabel;
i:integer;
begin
for i:=1 to 10 do
begin
aLabel:=TLabel.Create(self);
aLabel.Parent:=Form1;
aLabel.Caption:='Label'+IntToStr(i);
aLabel.Top:=i*30;
aLabel.Show;
end;
end;

[wudi_1982]

procedure TForm1.Button1Click(Sender: TObject);
var
aLabel:array of TLabel;//一个关于tlabel的动态数组
count,i:integer;//count记录你要生成多少个label
begin
count := 100;
setlength(alabel,count);
for i:=0 to count-1 do
begin
aLabel[i]:=TLabel.Create(nil);
aLabel[i].Parent:=Form1;
aLabel[i].Caption:='Label'+IntToStr(i);
aLabel[i].Top:=i*2;
aleble[i].left := i*2;
end;
end;

[手指风]

你们俩抢分真快啊

[crapex]

还可以不设TLabel类型变量
procedure TForm1.Button1Click(Sender: TObject);
var
count,i:integer;//count记录你要生成多少个label
begin
count := 100;
for i:=0 to count-1 do
with TLabel.Create(NIL) do
begin
Parent:=Form1;
Caption:='Label'+IntToStr(i);
Top:=i*2;
left := i*2;
end;
end;
end;

[andyzhou1101]

挖塞
比赛编程啊
呵呵

[newfang]

1 TOBJECTLIST
2 TLIST
3 动态数组技术: TYPE TLABELARR = ARRAY OF TLABEL;
然后SETLENGTH

[zywuhao]

谢谢大家的回答，我来试试看！！给答案的都有分，谁的效率高，得高分！！

[YFLK]

我喜欢 crapex(编程浪子)的方法
newfang(传说中的MIC) 的方法也可以，在使用上可能更灵活些，没有代码不好评论。

[zywuhao]

newfang(传说中的MIC)能写个代码的例子给我看看吗？