请问如何把自己写的一个函数赋予一个事件处理函数

[hansan]

请问如何把自己写的一个函数赋予一个事件处理函数，如
void ButtonClick(TObject *Sender)
{
ShowMessage("ss");
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1->OnClick = ButtonClick;
}
这样子是不行的，不知哪位知道如何处理？
谢谢

[huzhangyou]

void __fastcall TForm1::MyFunction(void)
{MessageBox(Null,"xx","xx",MB_OK);}


FormCreate事件中
Button1->OnClick=MyFunction();


这里MyFunction也是Form的成员函数
当然返回值或button1的click事件一样了
这样可以

[kingcaiyao]

一定要是类的成员函数，才可以赋值。

[runnerrunning]

我看是你的函数没有定义成 fastcall 型，另外你的函数要加
Tform1::

void __fastcall TForm1::ButtonClick(TObject *Sender)
{
ShowMessage("ss");
}

[greendesert]

void ButtonClick(TObject *Sender)//改为 void TForm1::ButtonClick(TObject *Sender)//
{
ShowMessage("ss");
}
这样应该就可以了

[xiaojian770801]

可以在Button1 的OnClick事件中选择 ButtonClick（在属性TOOL栏的Event页）

[烟波三千里人鬼五百年]

一定要类的成员函数，才可以
具体参见 __closure 的相关定义

TForm1::MyButtonEvent(TObject *Sender);