vcl 与 mfc 事件笔记

[color=red]vcl 事件:[/color]

首先我定义一个参数列表

typedef void __fastcall (__closure * TSoftphoneOnError)(TInterfaceErrorType ErrCode,long CTIErrorCode,AnsiString ErrDesc);

定义激活方法 virtual void __fastcall SetOnError(TSoftphoneOnError value)=0;

定义事件入口 __property TSoftphoneOnError OnError = { write = SetOnError};


[color=red]mfc事件[/color]

定义事件eventidSoftError = 1L,
定义激活方法void FireSoftError(long lErrCode_, LPCTSTR lpstrErrDesc)
{FireEvent(eventidSoftError,EVENT_PARAM(VTS_I4 VTS_BSTR), lErrCode_, lpstrErrDesc);}

定义事件入口
EVENT_CUSTOM("SoftError", FireSoftError, VTS_I4 VTS_BSTR)