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