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

Question

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

Answer 1

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

Answer 2

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

Answer 3

var
  adowpmc:Tadoquery;
begin
  adowpmc:=tadoquery.Create(self);类似
补充,还要加一句
adowpmc.parent:=form1;
这样WINCONTROL控件才可见

Answer 4

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

Answer 5

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;

Answer 6

对不起，上面  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;

Answer 7

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

Answer 8

風中狂也不全對
應該是這樣
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;