请问 huzhangyou，Ring_Pt 怎么为动态创建的按钮编写鼠标单击代码

请教 huzhangyou，Ring_Pt 如何为动态创建的按钮编写鼠标单击代码？
感谢两位，动态按钮添加已完成，


不过不知怎样给动态创建的按钮，写鼠标单击事件，而且还需判断鼠标单击的是

创建的哪一个按钮，每个按钮相应不同事件。


请教..........



------解决方案--------------------
参考
http://community.****.net/Expert/topic/4745/4745031.xml?temp=.8127405
------解决方案--------------------
例子：
b1 = new TButton()
...
b1-> OnClick = BClick

void __fastcall TForm1::BClick(TObject *Sender)
{
...
}
------解决方案--------------------
//----------------new button----------------------
TButton *button = new TButton(Application);
button-> Parent = this;
button-> Name = "B1 ";
button-> Left = 10;
button-> Top = 10;
button-> OnClick = myclick;
//-----------------区分是按的是哪个button--------
void __fastcall TForm1::myclick(TObject *Sender)
{
String strName = ((TButton *)Sender)-> Name;
ShowMessage(strName);
}
//-------------------------.h文件--------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
void __fastcall myclick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);

};