请教，如何动态生成控件！

[bengan]

请教，如何动态生成按纽，edit,lable之类的控件！
最好有代码或文章！

[cow8063]

var
adowpmc:Tadoquery;
begin
adowpmc:=tadoquery.Create(self);

类似

[lxl]

var
label1:Tlabel
begin
label1:=tlabel.Create(self);
//在这里一定要指出PARENT,不然看不到控件
label1.parent:=form1;

end;
类似

[lxl]

var
adowpmc:Tadoquery;
begin
adowpmc:=tadoquery.Create(self);

类似
补充,还要加一句
adowpmc.parent:=form1;
这样WINCONTROL控件才可见

[bengan]

我要做的是查询一张表，得到表里的记录数（记录数是不确定的），然后生成相应数目的checkbottom；
上面的两位大侠可以说得具体的吗？

[ysycrazy]

var arr_check :array of tcheckbox;
i,j:integer;
begin
j:=adoquery1.recordcount;
SetLength(arr_check,i)
for i:0 to j-1 do
begin
arr_check[i]:=tcheckbox.create(application);
arr_check[i].parents:=form1;
arr_check[i].left:=100;
arr_check[i].top:=arr_check[i].top+10;
end;
end;

[ysycrazy]

对不起，上面 SetLength(arr_check,j) ,更正如下：
var arr_check :array of tcheckbox;
i,j:integer;
begin
j:=adoquery1.recordcount;
SetLength(arr_check,j)
for i:0 to j-1 do
begin
arr_check[i]:=tcheckbox.create(application);
arr_check[i].parents:=form1;
arr_check[i].left:=100;
arr_check[i].top:=arr_check[i].top+10;
end;
end;

[jorge]

var
b:TButton;
begin
b:=TButton.Create(Form1);
b.Parent:=Form1;
b.Visible:=true;
end;

[songandlan]

風中狂也不全對
應該是這樣
var arr_check :array of tcheckbox;
i,j:integer;
begin
j:=adoquery1.recordcount;
SetLength(arr_check,j)
for i:0 to j-1 do
begin
arr_check[i]:=tcheckbox.create(self);//應該是self,不是application,
arr_check[i].parents:=form1;
arr_check[i].left:=100;
arr_check[i].top:=arr_check[i].top + arr_check[i].height;//這里加height就可以了
arr_check[i].visible:=true;
end;
end;