自定义事件如何关联呢？

[tree2000]

代码如下：

//==================
.hpp
//==================
typedef void __fastcall (__closure *TNotifyEvent)( TObject* Sender );

class TMyControl : public TWinControl
{
__published:
	__property TNotifyEvent OnMyAct = {read=FOnmyAct, write=FOnmyAct};

protected:
	virtual void __fastcall DoMyAct( TObject* Sender );

private:
	TNotifyEvent FOnmyAct;

private:
	void __fastcall WndProc( TMessage &Msg );
};
//------------------------------------------------------------

//==================
.Cpp
//==================

void __fastcall TMyControl::WndProc( TMessage &Msg )
{
    TWinControl::WndProc( Msg );

    if( Msg.Msg == WM_MyAct )
    {
	try
	{
           DoMyAct();
	}
	catch( ... )
	{
		Application->HandleException( this );
	}
    }
}
//---------------------------------------------------------------------------

void __fastcall TMyControl::DoMyAct( TObject* Sender )
{
     if( FOnmyAct )
     {
          FOnmyAct( this );
     }
}
//---------------------------------------------------------------------------

问题是 ： （1），在 DoMyAct函数中，FOnmyAct会永远为NULL.
所以，FOnmyAct( this );是永远不能执行的。
（2），在类的外部使用事件关联，经跟踪，事件地址是变为外部函数的地址了。
可执行时，还是跳到了DoMyAct函数中。问题出在哪呢？

[CACACACACA]

void __fastcall TMyControl::DoMyAct( TObject* Sender )
{
if( Assigned( FOnmyAct ) )
{
FOnmyAct( this );
}
}

[GSTools]

不管在内部或外部，都必须给 OnMyAct 赋值，否则它将永远为 NULL.

[tree2000]

在C++Builder中好像没有Assigned这个函数吧？
就算有，也总要先要！= NULL,Assigned( FOnmyAct ) 才为真。
因为Assigned只是判断FOnmyAct是否为真。C++Builder是与NULL相比较。
所以，问题的关键是，什么时候FOnmyAct取值呢？

[tree2000]

[Quote=引用 2 楼 GSTools 的回复:]
不管在内部或外部，都必须给 OnMyAct 赋值，否则它将永远为 NULL.
[/Quote]

对！在哪里赋值？

[GSTools]

有多种方法，根据具体情况作相应处理，比如：
1、在你的程序内可直接定义一函数
__fastcall TMyControl::TMyControl()
{
OnMyAct = ShowMsg;
}

void __fastcall TMyControl::ShowMsg( TObject* Sender )
{
ShowMessage("....");
}

2、在外部程序中
TMyControl *ctl = new TMyControl;
ctl->OnMyAct = ShowMsg;//ShowMsg 是外部程序类中的函数，格式与上面相同
3、你的程序应该是个控件，写好后引用时，可直接在事件栏双击 OnMyAct 后，系统会自动生成事件处理程序框架

[tree2000]

[Quote=引用 5 楼 GSTools 的回复:]
有多种方法，根据具体情况作相应处理，比如：
1、在你的程序内可直接定义一函数
__fastcall TMyControl::TMyControl()
{
OnMyAct = ShowMsg;
}

void __fastcall TMyControl::ShowMsg( TObject* Sender )
{
ShowMessage("....");
}

2、在外部程序中
TMyControl *ctl = new TMyControl;
ctl->OnMyAct = ShowMsg;//ShowMsg 是外部程序类中的函数，格式与上面相同
3、你的…
[/Quote]

GSTools，一语惊醒梦中人。我想了好久也没有想通啊！谢谢了！