Вниз
Скачать: CL | DM;

ламерский вопрос относительно чата для локальной сети   Найти похожие ветки 

← →
b00ts0   (2002-02-22 23:01) [0]

заранее извиняюсь за свой тупой вопрос и потраченное Вами на него время.
делаю чат для локальной сети.
есть строка для ввода текста.
мне нужно вывести текст из этой строки (TEdit) в компонент TMemo при нажатии не кнопки ОТПРАВИТЬ, а при нажатии , например, кнопки enter. подскажите ламеру а то я уже кучу сайтов переры и ниче не нашел :(


← →
Pat ©   (2002-02-23 03:05) [1]

Причем тут чат? И вообще есть Сети...

Можно сделать и при нажатии Enter"a и при клике на кнопке. Если у тебя установлен обработчик клика на кнопке BSend, то это событие будет происходить при нажатии на Edit"e Enter"a:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then BSendClick(sender);
end;


← →
Артемий ©   (2002-02-23 08:10) [2]

Посмотри внимательно на примеры чатов которые лежат если память не изменяет в директории Delphi\demo\FastNet в папках NMudp и NMmsg


← →
KaPaT ©   (2002-02-23 11:32) [3]

Я такое писал. Лучше отправить сообщение на сервер и потом с сервера отправлять ко всем клиентам. А то добавишь в свой Memo, а вдруг сообщение не дойдет вообще? У тебя будет а у всех не будет. Уловил фишку?


← →
Sasha9   (2002-02-23 14:45) [4]

Не надо гемороится с событием OnKeyDown, просто поставь у кнопки "отправить" свойство Default=True



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c
14-32576
Вадим
2002-01-24 14:50
2002.03.11
Что делать, если ничего не хочется делать?


6-32537
Sour
2001-12-24 03:55
2002.03.11
SMTP


7-32594
cher
2001-12-04 15:35
2002.03.11
Как изменить размер бумаги в установках принтера?


1-32457
Sergy
2002-02-22 17:53
2002.03.11
Пароль


14-32565
Dimitry_I
2002-01-28 14:50
2002.03.11
Помогите, очень прошу




   Наверх