__closure调用另一个类中的函数

//定义事件函数指针

typedef void __fastcall(__closure * TMyEvent)(AnsiString s);

TMyEvent FOnTextOut;

//---------------------------------------------------------------------------

class a

{

public :

void __fastcall test(AnsiString s)

{

ShowMessage(s);

}

};

class b

{

public :

void __fastcall show(a &p,AnsiString s)

{

FOnTextOut = p.test;

FOnTextOut(s);

}

};

void __fastcall TForm1::Button1Click(TObject *Sender)

{

a a1;

b b1;

b1.show(a1,"hello world"); //调用类a1中的成员方法test

}