问题:
TCustomWinSocket不是一个控件,不能直接从Object Inspect中找到事件OnSocketEvent。事件类型定义如下
type TSocketEventEvent = procedure (Sender: TObject; Socket: TCustomWinSocket; SocketEvent: TSocketEvent) of object;
property OnSocketEvent: TSocketEventEvent;
现在我要响应SocketEvent中的seRead事件(TSocketEvent是一个集合类型)要怎么做。
TCustomWinSocket不是一个控件,不能直接从Object Inspect中找到事件OnSocketEvent。事件类型定义如下
type TSocketEventEvent = procedure (Sender: TObject; Socket: TCustomWinSocket; SocketEvent: TSocketEvent) of object;
property OnSocketEvent: TSocketEventEvent;
现在我要响应SocketEvent中的seRead事件(TSocketEvent是一个集合类型)要怎么做。
begin
if SocketEvent=seRead then
ShowMessage('Reading..');
end;
clientSocket.OnSocketEvent:=socketdo;