如何动态生成若干个speedbutton和checkbox? ( 积分: 200 )

如何在一个panel上,生成16*4排列的speedbutton?
如何在一个panel上,生成16*4排列的checkbox?

在编程论坛看到有人问过，大概入下，具体你可以到那去问问。
http://www.programbbs.com

speedbutton := tspeedbutton.create(panel1);
speedbutton.para………………

很简单, 呵呵:

procedure TForm1.Button1Click(Sender: TObject);
var
I, J: integer;
begin

for I := 1 to 16do

for J := 1 to 4do

begin

with TSpeedButton.Create(Panel1)do

begin

top := 10 + (j - 1) * 30;
left := 10 + (i - 1) * 30;
Parent := Panel1;
visible := True;
end;

end;

end;


procedure TForm1.Button2Click(Sender: TObject);
var
I, J: integer;
begin

for I := 1 to 16do

for J := 1 to 4do

begin

with TCheckBox.Create(Panel1)do

begin

top := 10 + (j - 1) * 30;
left := 10 + (i - 1) * 50;
Parent := Panel1;
Caption := Format('c%d,%d', [I, J]);
visible := True;
end;

end;

end;

谢谢你!!!