Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

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

← →
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;

---

← →
Delpher ©   (2006-10-16 09:53) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c