比较菜的问题,关于一个类的事件响应如何实现的问题
问题:
TCustomWinSocket不是一个控件,不能直接从Object Inspect中找到事件OnSocketEvent。事件类型定义如下
type TSocketEventEvent = procedure (Sender: TObject; Socket: TCustomWinSocket; SocketEvent: TSocketEvent) of object;
property OnSocketEvent: TSocketEventEvent;
现在我要响应SocketEvent中的seRead事件(TSocketEvent是一个集合类型)要怎么做。