828
社区成员
发帖
与我相关
我的任务
分享ActiveXForm如何创建事件?
if FEvents <> nil then
FEvents.OnReceiveInfo:=ReceiveInfoEvent(_Command, Copy(Str, 1, Index-1));
[Error] SendImpl1.pas(412): Not enough actual parameters
procedure TSend.ReceiveInfoEvent(CommandID: SYSINT; const MSG: WideString);
begin
if FEvents <> nil then FEvents.OnReceiveInfo(CommandID, MSG);
end;
procedure OnReceiveInfo(CommandID: SYSINT; const MSG: WideString); dispid 209;
FEvents.OnReceiveInfo:=ReceiveInfoEvent(_Command, Copy(Str, 1, Index-1));
[Error] SendImpl1.pas(412): Not enough actual parameters
procedure TSend.ReceiveInfoEvent(CommandID: SYSINT; const MSG: WideString);
begin
if FEvents <> nil then FEvents.OnReceiveInfo(CommandID, MSG);
end;
procedure OnReceiveInfo(CommandID: SYSINT; const MSG: WideString); dispid 209;
...全文
请发表友善的回复…
发表回复
日总是我哥 2006-09-29
- 打赏
- 举报
接分
PengDeGang 2006-09-29
- 打赏
- 举报
呵呵，自己搞定了。
Devillyd 2006-09-29
- 打赏
- 举报
mark
