蒓
蒓潶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.
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.