[求助]关于 TNotifyEvent 的调用问题(50分)

  • 主题发起人 主题发起人 蒓潶Sê
  • 开始时间 开始时间

蒓潶Sê

Unregistered / Unconfirmed
GUEST, unregistred user!
program NoFormPE;
uses
Windows,IdTCPClient;
var
MSG:TMSG;
TCPC:TIdTCPClient;
//----------
Procedure OverClient;
begin
//
end;
//----------
begin
TCPC:=TIdTCPClient.Create(nil);
TCPC.OnDisconnected:=OverClient;//这里出错,要求TNotifyEvent类型,要怎样实现?要求用DPR工程文件编程
while(GetMessage(Msg,0,0,0))do begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
//----------
end.
 
Procedure OverClient(Sender: TObject);
begin
//
end;

这样....
你看下TNotifyEvent类型的定义不就知道了.....
 
结贴```问题已在盒子得到解答了
 
楼主该把分给 hs-kill 兄,他的答案是正确的
 
接受答案了.
 
后退
顶部