определение события не визуально

vasili 23.06.2004 - 15:34 | требуется создать класс, объекты которого могли бы обрабатывать стандартное событие предка класса, например: type TMyClient=class(TClientSocket) ... ... // OnRead end; var myclient:tmyclient; ... myclient:=tmyclient.create; ... как сделать, чтобы каждая такая переменная (объект) обрабатывала свое событие OnRead? Сделать визуально это очень просто, проблема в том, что в программе зараннее неизвестно сколько будет клиентов.
OF 1 - 23.06.2004 - 15:49 | procedure TMyClient.DoOnRead(Sender:TObject,....); begin ... end; .... procedure TMyClient.Create(AOwner:TComponent,...); begin ... OnRead=DoOnRead; ... end;
OF 2 - 23.06.2004 - 15:52 | очепятка: "procedure TMyClient.Create" читать как "constructor TMyClient.Create"
VaS 3 - 23.06.2004 - 16:09 | TMySocket = class(TClientSocket) private procedure OnReadEvent; protected procedure Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent); override; end; ... procedure TMySocket.Event(Socket: TCustomWinSocket; SocketEvent: TSocketEvent); begin inherited; if SocketEvent = seRead then OnReadEvent; end;
vasili 4 - 23.06.2004 - 16:11 | огромное спасибо :-)

>>