如何响应动态创建Button的OnClick事件

[winterxu416]

在一个Form里动态创建了两个Button，请问应该如何响应这两个Button的OnClick事件，多谢

[chenxiaohan]

动态创建button：

TButton *bu;
bu = new TButton(this);
bu->Parent = this;
bu->Name = Ok;
bu->Captino = "动态按钮一";
bu->Left = 200;
bu->Top = 100;
bu->OnClick = OkClick; //OnClick事件


响应事件的代码：
void __fastcall TForm1::OkClick(TObject *Sender)
{
TComponent *click;
click=(TComponent*)Sender;
ShowMessage(click->Name);
}

[chifengwatch]

来晚啦，呵呵，同意 chenxiaohan(晓寒) ，就是在new出button的OnClick中指向自己的事件处理函数。