0 / 0 / 1
Регистрация: 26.06.2013
Сообщений: 19
1

Перехват Escape для всех элементов формы

10.10.2013, 08:28. Показов 1344. Ответов 1
Метки нет (Все метки)

Товарищи - помогите! при открытой форме проекта нужна перехватить нажатие клавиши esc с клавиатуры и вывести при этом сообщение.

Писал такой код - эффекта не было
Delphi
1
2
3
4
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key=#27) then ShowMessage('exit');
end;
пробовал с VK_ESCAPE - эффект так-же не достигнут.
Использую Delphi 6
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2013, 08:28
Ответы с готовыми решениями:

Смена курсора для всех элементов формы
Здравствуйте, извиняюсь за нубский вопрос, но я поменял курсор с помощью: Screen.Cursors:=...

Закрытие формы по нажатию Escape
Возможно ли закрытие формы по нажатию ESC, в независимости от того, на каком компоненте сейчас...

Создать массив всех элементов формы
Есть форма, на которую динамически добавляются, в зависимости от нажатой кнопки, TFileNameEdit,...

Вывод на экран всех элементов формы
Здравствуйте, уже достаточно долго хожу вокруг да около, но не могу понять как делать одну вещь......

1
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
10.10.2013, 08:53 2
KeyPreview -> True
Delphi
1
2
3
4
5
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then ShowMessage('Exit');
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2013, 08:53

Элемент управления поверх всех элементов формы
Добрый вечер.У меня на форме есть много элементов управления.Как сделать,чтобы определённый элемент...

Доступность горячей комбинации со всех элементов формы
В общем есть форма, на которой есть кучу элементов управления: edit'ы, button'ы и и т.д., можно ли...

Выбор всех элементов формы определенного вида
Здравствуйте! Необходимо выбрать все элементы определенного вида с формы (например, кнопки или...

В двумерном массиве для всех элементов равных 1 всех соседей заменить на 0
В двумерном массиве для всех элементов равных 1 всех соседей заменить на 0. У меня не работает,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.