继承问题(50分)

type MySock=class(TclientSock)
请问我应该怎么样写代码继承TclientSock的OnRead等等事件.能给我稍微完整点的代码吗?谢谢.

up

TClientSock 继承自 TCustomSocket，而 TCustomSocket 有一个 protected 过程：
TCustomSocket.Event

你只要在你的 MySock 里面重载这个 Event 过程然后在里面判断就可以了：

type MySock=class(TclientSock)
protected
procedure Event(Socket: TCustomWinSocket
SocketEvent: TSocketEvent)
override;
...

procedute MySock.Event(Socket: TCustomWinSocket
SocketEvent: TSocketEvent);
begin
if SocketEvent = seRead then
begin
// 执行你的 OnRead 代码
end;
inherited;
end;

thank you very much!!!!

接受答案了.