TEdit обработка Ctrl+A
Автор Сообщение
all__ Не на форуме
Админ
*******

Сообщений: 874
Зарегистрирован: 01.2010
Сообщение: #1
TEdit обработка Ctrl+A
Оказалось, что компонент 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;





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
22.02.2010 23:12
Вебсайт Найти все сообщения Цитировать это сообщение
clk824 Не на форуме
Админ
*******

Сообщений: 675
Зарегистрирован: 01.2010
Сообщение: #2
RE: TEdit обработка Ctrl+A
А не возникнет проблемы при переключении языка? А то прям символ жёстко забит. Я конечно чисто теоретически Smile





Хочешь сказать спасибо? Лучше нажми "Мне нравится", +1 или Like!
23.02.2010 10:14
Вебсайт Найти все сообщения Цитировать это сообщение
all__ Не на форуме
Админ
*******

Сообщений: 874
Зарегистрирован: 01.2010
Сообщение: #3
RE: TEdit обработка Ctrl+A
Да, я тоже думал, что будет проблема, но на практике ее не возникло.
Видимо var Key: Word; возвращает код клавиши.





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
(Последний раз сообщение было отредактировано 29.06.2010 в 16:29, отредактировал пользователь all__.)
23.02.2010 10:42
Вебсайт Найти все сообщения Цитировать это сообщение
Создать ответ 


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