Закрываю таким образом дочерние формы. Обрабатываю событие формы OnKeyPress, при этом KeyPreview = true.
Странно, что этот код срабатывает, но только один раз. Потом если снова показать форму Form2 и нажать Esc - она уже не закрывается. Есть еще одна дочерняя форма Form3, которая всегда закрывается по Esc. В чем может быть причина такого различного поведения? На Form2 у меня панель инструментов с кнопками и TWebBrowser на всю форму. На Form3 - панель, комбобоксы, лейблы и кнопки.

А клавиша обрабатывается второй раз или нет? У меня была похожая проблема с DBGrid: когда фокус был на нём - горячие клавиши не обрабатывались. Пришлось использовать обработчик DBGridKeyPress(). Также, возможно, что эту клавишу перехватывает TWebBrowser. Например, в FireFox'е клавиша Esc - это прервать загрузку страницы.

Нет. Срабатывает только однократно. А как TWebBrowser может перехватывать нажатие клавиши, если KeyPreview формы равно true и по идее именно форма первой ловит все события.

Интересный вопрос, но тем не менее... Проверьте, срабатывает KeyPress у TWebBrowser.

Так у этого компонента нет такого события.

Вот тестовый проект, имитирующий проблему. Очевидно есть зависимость от того, загружаю ли я в WebBrowser контент. Если не загружаю - то все срабатывает. А если загружаю Form2->WebBrowser1->Navigate(WideString("about:blank")); - то срабатывает только однократно.

Это сообщение отредактировал(а) Нитонисе - 7.1.2013, 18:53

Присоединённый файл ( Кол-во скачиваний: 2 )
 CloseOnESC.zip 86,91 Kb

Так оно и есть. WebBrowser перехватывает ESC. Если добавить на форму ещё один контрол и перед нажатием ESC передать фокус ему, то всё ОК. Дело в том, что WebBrowser - это обёртка над COM-объектом (типо как MS Word, Excel и т.п.). По сути, это приложение в приложении. У него есть свои обработчики. Единственный выход - перед нажатием ESC - передавать фокус.

Но ведь если в браузер не загружен контент, то форма закрывается всегда. Может стоит как-то перед Esc выгружать контент, придавая компоненту начальное состояние?

Добавлено через 10 минут и 54 секунды
Со сменой фокуса не ясно в какой момент ее выполнить. У TWebBrowser нет события OnKeyPress. Наверное надо как-то запрещать этому компоненту получать фокус.

Ещё не факт, что в этот момент уже создан COM-объект. Возможно, это просто VCL обёртка отображается и все.


Я же говорил, что это приложение в приложении получается. Никак не запретишь ему этого делать.

Фокус можно перекидывать либо сразу после Navigate(), но тут есть проблема - пользователь может тыкнуть по странице. Либо завести таймер, который этим займётся 

Каждые 5 секунд убирать фокус? 

Можно и так. Но я думаю, что не будет ничего страшного, если даже будет 2 сек. 

Можно использовать компоненты TActionList или TMainMenu. Добавить в него действие и установить у него свойство ShortCut = Esc.

Добавил компонент TActionList. Добавл действие Action1, установил его свойство ShortCut=Esc. Что делать дальше не знаю, потому что с этим компонентом никогда не работал  В таком виде он видно не работает. Повесил действие Action1 на форму - теперь она по Esc закрывается. Но не могу дать фокус компоненту WebBrowser. При клике на нем мышкой звучит сигнал. Надо подумать, может это и не плохо, что браузер не может получить фокус. Убрать бы хотябы этот звуковой сигнал.

Установи у Action обработчик OnExecute.


Из-за TActionList? У меня все нормально работает.

Хм. Работает  Только я не понимаю механизма работы. TAction - это что-то вроде невизуального компонента, который что-то делает. При этом то что он делает записано в OnExecute. А активируется OnExecute в данном случае нажатием Esc? Тогда странно, почему TAction знает что нажата Esc, а форма не знает.



Это был такой эффект если действие Action1 прописать в свойстве формы Action.