动态生成的控件数组怎么加响应事件呢？

Question

我新建了动态数组
var btn : array of Tbutton;
setlength....
for i:=0 to 10 do 
begin
  btn[i]:=Tbutton.create(self);
  btn[i].parent:=self
end;
如何加入响应的处理呢。。函数（抑或过程）如何定义呢。。
如有答复，感激不尽

Answer 1

自己先定义一个同样的事件过程。
然后赋值给你的动态控件。btn[i].onclick := mybtnClick;MybtnClick : TNotifyEvent;如下程序:
  TForm1 = class(TForm)
  private
    procedure MyBtnClick(Sender: TObject);
  public
    { Public declarations }
  end;implementation{$R *.DFM}procedure TForm1.MyBtnClick(Sender: TObject);
begin
  ShowMessage('hi');
end;

Answer 2

onClick:=xxx;//xxx is a procedure like this:xxx(sender:TObject)