如何在form上动态添加一个按钮?

[honey_001]

如何在form上动态添加一个按钮?用for循环,for i:=0 to 10 then写代码添加按钮10个按钮,请提供源码.

[zhangheaaa]

var
mybutton:tbutton;
i:integer;
begin
for i:=1 to 10 do
begin
mybutton;=tbutton.create(self);
mybutton.caption:="button"+i;
mybutton.left:=i*10+20;
mybutton.top:=i*10+20;
end;

[楚人无衣]

var
btn: array[1..10] of TButton;
i: Integer;
begin
for i := 1 to 10 do
begin
btn[i] := TButton.Create(self);
btn[i].Caption := 'Button' + IntToStr(i);
btn[i].Left := 80;
btn[i].Top := 20 + i*25;
btn[i].Parent := self;
end;
end;

[amer]

var
mybutton:tbutton;
i:integer;
begin
for i:=1 to 10 do
begin
mybutton;=tbutton.create(self);
mybutton.caption:="button"+inttoStr(i);
mybutton.parent := self;
mybutton.left:=i*10+20;
mybutton.top:=i*10+20;
end;
end;

[John1202]

var
mybutton:tbutton;
i:integer;
begin
for i:=1 to 10 do
begin
mybutton;=tbutton.create(self);
mybutton.caption:="button"+inttoStr(i);
mybutton.parent := self;
mybutton.left:=i*10+20;
mybutton.top:=i*10+20;
end;
end;

[fansnaf]

可以揭帖了，还有
最后要记得将资源释放调。

[太空11]

var
btn: array[1..10] of TButton;
i: Integer;
begin
for i := 1 to 10 do
begin
btn[i] := TButton.Create(self);
btn[i].Caption := 'Button' + IntToStr(i);
btn[i].Left := 80;
btn[i].Top := 20 + i*25;
btn[i].Parent := self;
end;
end;

[menggirl]

var
mybutton:tbutton;
i:integer;
begin
for i:=1 to 10 do
begin
mybutton;=tbutton.create(self);
mybutton.caption:="button"+inttoStr(i);
mybutton.parent := self;
mybutton.left:=i*10+20;
mybutton.top:=i*10+20;
end;
end;

[884813]

如何再给这些动态创建的按钮动态创建响应代码呢？

[honey_001]

那如果我在scrollbox上添加了按钮,如何全部删除?

[hhnick]

先写一个事件，然后Mybutton.Onclick := 你自己写的事件。