Закрытие формы по нажатию Escape

@Grusha · Регистрация: 17.06.2008

Студворк — интернет-сервис помощи студентам

Возможно ли закрытие формы по нажатию ESC, в независимости от того, на каком компоненте сейчас находится курсор?

НЕ прокатывает:

Delphi
1
2
3
4
procedure TF_Review.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then F_Review.Close;
end;

@AzAtom · 04.11.2024, 13:59

- "Хватит! Хватит! Прекратите!" - кричала девушка в маршрутке, забыв слово "Остановите!"

@droider · 05.11.2024, 13:04

Не по теме:

Сообщение от AzAtom

кричала девушка в маршрутке, забыл слово "Остановите!"

"Остановите! Остановите! Вите надо выйти..."

Встречаемся в этой теме в 2031-м году.

@northener · 10.11.2024, 03:45

Не по теме:

Сообщение от droider

Встречаемся в этой теме в 2031-м году.

Дожить бы.

@MrHayno · 21.11.2024, 11:15

1.Слушай, ну как я понимаю события пресса - тот элемент у которого это событие должен быть активен в момент нажатия клавиши, то есть ты должен кликнуть по нему или произвести какой то .Activate на момент нажатия клавиши(это обобщённо).

2. Проверь вообще сначала саму работу события нажатия, а не выключения формы. То есть

Delphi
1
if Key = VK_ESCAPE then showmessage('нажат эск');

И ещё вариант - если ене юзается само закрытие а не кнопка - попробуй сымитировать нажатие ALT+F4 через ESC - немного коряво но по идее цели должно достигнуть?

Добавлено через 6 минут

Сообщение от Grusha

Возможно ли закрытие формы по нажатию ESC, в независимости от того, на каком компоненте сейчас находится курсор?

Нууу, ты можешь в событиях onkeypress компонентов выбирать/указывать кейпресс формы, чтоб по тысяче раз не переписывать. По крайней мере в delphi 7 так можно вроде

@D1973 · 21.11.2024, 11:45

Сообщение от MrHayno

Слушай

За 14 прошедших лет в теме отметились полтора десятка человек. К кому именно Вы обращаетесь?
И, главное, зачем? Тема была разжевана и завершена еще 14 лет назад, две эксгумации считаются актами некрофилии. Зачем третье воскрешение?

@MrHayno · 21.11.2024, 19:42

Сообщение от D1973

За 14 прошедших лет в теме отметились полтора десятка человек. К кому именно Вы обращаетесь?
И, главное, зачем? Тема была разжевана и завершена еще 14 лет назад, две эксгумации считаются актами некрофилии. Зачем третье воскрешение?

Не обратил внимание)) А вдруг человек так и не смог сделать отмену за 14 лет и до сих пор мучается?)))

@D1973 · 22.11.2024, 04:39

Не по теме:

Сообщение от MrHayno

и до сих пор мучается?

ну, если только, с точки зрения гуманизма, добить, чтобы не мучался...

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,496
	04.11.2024, 13:59
	- "Хватит! Хватит! Прекратите!" - кричала девушка в маршрутке, забыв слово "Остановите!" 0