Delphi. Трюки и эффекты - читать бесплатно онлайн полную версию книги автора Валерий Викторович Борисок (ч. 451)

...

Листинг 11.23.
Обновление формы при отсоединении от сервера
procedure Disconnect();
begin
with frmClient do
begin
cmbConnect.Caption := \'Подключиться\
txtUser.Enabled := True;
txtServer.Enabled := True;
Caption := \'Разговорник\
lstUsers.Enabled := False;
lstUsers.Clear;
cmbSend.Enabled := False;
txtMessage.Enabled := False;
txtChat.Enabled := False;
end;
end;

Процедура ProcessMessage (листинг 11.24) обрабатывает сообщение, полученное от сервера, аналогично такой же процедуре в серверном приложении (естественно, сообщения и реакция на них отличны от серверных).