Каскадный режим | Линейный режим

***all__*** · 22.02.2010 23:12

Оказалось, что компонент TEdit не обрабатывает нажатия горячих клавиш, на примере Ctrl+A я покажу как реализовать другие обработчики.

Итак, нам нужно выделить весь текст в Edit по нажатию стандартных клавиш Ctrl+A
Добавляем условие на событие KeyDown

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if ((Key = ord('A')) and (ssCtrl in Shift)) then edit1.SelectAll;

end;

***clk824*** · 23.02.2010 10:14

А не возникнет проблемы при переключении языка? А то прям символ жёстко забит. Я конечно чисто теоретически Smile

***all__*** · 23.02.2010 10:42

Да, я тоже думал, что будет проблема, но на практике ее не возникло.
Видимо var Key: Word; возвращает код клавиши.

Похожие темы
Тема:		Автор	Ответов:	Просмотров:	Посл. сообщение
	Обработка ошибок	all__	0	799	03.05.2010 9:53 Посл. сообщение: all__

Каскадный режим \| Линейный режим TEdit обработка Ctrl+A
Автор	Сообщение