如何加入组件？

Question

我想在窗体中依次序加入30个tedit 和30个tlable,应怎么办，谢谢！

Answer 1

!
用控件数组吧
label:array [0..99] of tlabel;for i:= 0 to 99 do
label[i]:=tlabel.create(nil);

Answer 2

自动添加有什么意义吗?
给你段代码象这样做就行了
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: TBitBtn;
begin
  i:= TBitBtn.Create(self);
  i.Parent:= nil;
  i.Parent:= self;
end;

Answer 3

原则上可以动态添加，这段代码就可以添加五个按钮，等距排列
procedure TForm1.Button1Click(Sender: TObject);
var
k:integer;
begin
for k:=1 to 5 do
begin
 with Tbutton.Create(self) do
 begin
   Parent:=Form1;
   Left:=100;
   Top:=100+(k-1)*75;
   Caption:='New '+IntToStr(k);
 end;
end;
end;