Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
я тут делаю чат, нужно, чтобы сообщения отправлялись по нажатию кнопки ентер.
Подскажите пожалуйста как сделать это
Я писал эти процедуры (приложение) и все равн оне работает :(

Вопрос задал: Сергей-1388 (статус: Посетитель) Вопрос отправлен: 9 октября 2007, 20:12 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Сергей!
Сколько говорю, учить мат часть!
И если бы учили, что знали бы, что конструкция if ... then оператор; испольняет толко один оператор. а остальные не трогает. Судя с логики, в вашем случае надо что бы строки после then выполнялись лишь тогда, когда условие истинно. Для этого нужно несколько операторов завернуть в операторные скобки begin ... end; тогда они будут считаться за один оператор. тоеть где то так

Procedure TClientFrmMain.EditMessageKeyPress(Sender: TObject; 
var Key: Char); 
var 
CommBlock : TCommBlock; 
begin 
if Key = #13 then 
begin  
  CommBlock.Command := EditCommand.Text; // assign the data 
  CommBlock.MyUserName := Client.LocalName; 
  CommBlock.Msg := EditMessage.Text; 
  CommBlock.ReceiverName := EditRecipient.Text;
end;
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 10 октября 2007, 00:18

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.