5,386
社区成员
发帖
与我相关
我的任务
分享比较菜的问题，关于一个类的事件响应如何实现的问题
问题：
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是一个集合类型）要怎么做。
...全文
请发表友善的回复…
发表回复
xiangding 2003-10-16
- 打赏
- 举报
直接调用行不行？是不是public的还是publish的呢？
myth_2002 2003-10-16
- 打赏
- 举报
哦，居然可以哦
fzufish 2003-10-16
- 打赏
- 举报
procedure TForm2.socketdo(Sender: TObject;Socket:TCustomWinSocket;SocketEvent:TSocketEvent);
begin
if SocketEvent=seRead then
ShowMessage('Reading..');
end;
clientSocket.OnSocketEvent:=socketdo;
begin
if SocketEvent=seRead then
ShowMessage('Reading..');
end;
clientSocket.OnSocketEvent:=socketdo;
