如何对动态创建的控件，添加相应的时间呢？ （高分相送）

[tombyron]

我想 在程序运行中动态地实现控件的创建,并能够在单击这些控件后,能够做出相应的响应。 如何来实现呢？

比如： 在程序运行中：
临时创建多个Button，名字分别为Button1和Button2……（以此类推），并且这些
Button被Click以后，会弹出一个对话框MessageBox('1') （点button1，弹出MessageBox('1')；点button2，会弹出MessageBox('2')；…………以此类推。如何实现这种临时时间的响应。


最好Paste 一段原码。 谢谢大家

[trainbox]

var
i: Integer;
bs: array of TButton;
begin
setlength(bs,10);
for i:=0 to 9 do
begin
bs[i]:=TButton.Create(self);
bs[i].Tag:=i;
bs[i].OnClick:=buttonclick;
end;
end;

procedure TForm1.Buttonclick(sender: tObject);
begin
showmessage((Sender as TButton).tag);
end;

[tikkypeng]

对

[zonky]

对！！！

[tombyron]

给分了。谢谢 trainbox(战友战友亲如兄弟)，请留下你的email和QQ号，大家互相交流。
[e-mail]
QQ:17692305

[trainbox]

[e-mail]