求教com dll的event问题
astar 2000-03-17 06:19:00 要求:编写一个com dll,有一个方法saymsg,有一个事件beforesay,此事件在saymsg发生前发生,我该怎么写?(我已经用typelib创建好了全部接口)。请各位大虾指教!
这是tlb的部分内容
// *********************************************************************//
// DispIntf: IsaymsgEvents
// Flags: (4096) Dispatchable
// GUID: {E7032003-FC19-11D3-9CC2-0080C842D766}
// *********************************************************************//
IsaymsgEvents = dispinterface
['{E7032003-FC19-11D3-9CC2-0080C842D766}']
procedure beforesay; dispid 1;
end;
这是saymsg过程
procedure Tsaymsg.saynow;
begin
!!!!!!这里我应该加什么函数激发事件??????
'??????
messagedlg(mymsg,mtWarning,mbYesNoCancel,0)
end;