|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перехватить и отменить Enter в Мемо
Пишу типа чата. Хочу чтоб сообщения из мемо посылались на Enter
А переход на другую сроку Shift + Enter как вконтакте Написал так Код:
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssShift in Shift) AND (Key=VK_RETURN) then exit; if (Key=VK_RETURN) then begin Key:=0; Button3.Click; //Memo1.Clear; exit; end; end; Кабы очистить мемо после нажатия Enter. Может подскажете что-нибудь? |