Присваивание обработке события значения.

← →
Delpher © (2006-10-16 09:31) [0]

Требуется программно присвоить обработке события нужную процедуру:
У меня в Delphi2005 нет компонента TServerSocket поэтому работаю напрямую с этим классом.
Есть переменная
server:=TServerSocket.create;

и процедура

procedure TForm1.Serversocket1ClientRead(Sender : TObject; Socket : TCustomWinSocket); begin showmessage(Socket.ReceiveText); end;

Необходимо сделать та чтобы server.OnClientRead
Выполняло procedure TForm1.Serversocket1ClientRead

← →
Сергей М. © (2006-10-16 09:32) [1]

server.OnClientRead := Serversocket1ClientRead;

Ух ты! Сработало. Первый раз не пошло(что я только после этого не перепробовал=))
PS Спасибо

Присваивание обработке события значения. Найти похожие ветки