"Модальное окно с кнопками "OK" и "Cancel" не закрывается при нажатии клавиш "Enter" или "Esc" в Delphi"

Delphi , Программа и Интерфейс , Модальные формы

Модальное окно с кнопками "OK" и "Cancel" не закрывается при нажатии клавиш "Enter" или "Esc" в Delphi

При работе с модальными окнами в Delphi может возникнуть проблема, когда окно не закрывается при нажатии клавиш "Enter" или "Esc". В этом материале мы рассмотрим, как решить эту проблему.

Проблема При создании модального окна с кнопками "OK" и "Cancel" может возникнуть ситуация, когда окно не закрывается при нажатии клавиш "Enter" или "Esc". Несмотря на то, что свойства "Default" и "Cancel" установлены для соответствующих кнопок, и ModalResult установлен на "mrOK" и "mrCancel" соответственно, окно не реагирует на нажатие этих клавиш.

Решение Эта проблема связана с контролом TSpinEdit, который захватывает нажатия клавиш "Enter" и "Esc". Чтобы решить проблему, необходимо установить свойство "KeyPreview" формы в true и добавить следующий код в обработчик события "OnKeyPress":

procedure TForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = Char(vk_Escape)) then  // #27
    CancelBtn.Click
  else
    if (Key = Char(vk_Return)) then  // #13
      OkBtn.Click;
end;

Теперь, при нажатии клавиш "Enter" или "Esc", соответствующая кнопка будет нажата, и окно закроется.

Важно отметить, что использование свойств "Cancel" и "Default" не гарантирует автоматическое закрытие окна при нажатии клавиш "Enter" или "Esc". Для этого необходимо явно обработать нажатие этих клавиш в коде.

Подтвержденный ответ Установка свойства "KeyPreview" в true и добавление кода в обработчик события "OnKeyPress" позволяет закрывать модальное окно при нажатии клавиш "Enter" или "Esc".

Альтернативный ответ Другой подход к решению этой проблемы заключается в исправлении кода компонента TSpinEdit. Для этого необходимо добавить метод "WMGetDlgCode" в компонент и изменить его код следующим образом:

procedure TSpinEdit.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
  inherited;
  Message.Result := Message.Result and not DLGC_WANTALLKEYS;
end;

Это сообщает VCL, что компонент не обрабатывает клавиши "Enter" и "Esc", и они будут переданы кнопкам, которые затем будут активированы в соответствии с их настройками (Default и Cancel). Однако этот подход требует изменения исходного кода компонента, что не всегда является предпочтительным вариантом.

Вывод При работе с модальными окнами в Delphi может возникнуть проблема, когда окно не закрывается при нажатии клавиш "Enter" или "Esc". Решением этой проблемы является установка свойства "KeyPreview" в true и добавление кода в обработчик события "OnKeyPress". Также существует альтернативный подход, заключающийся в исправлении кода компонента TSpinEdit. В любом случае, важно понимать, что свойства "Cancel" и "Default" не гарантируют автоматического закрытия окна при нажатии этих клавиш, и для этого необходимо явно обработать нажатие клавиш в коде.

Создано по материалам из источника по ссылке.

При работе с модальными окнами в Delphi может возникнуть проблема, когда окно не закрывается при нажатии клавиш "Enter" или "Esc", даже если свойства "Default" и "Cancel" установлены для соответствующих кнопок и ModalResult установлен на "mrOK" и "mrCance

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Модальные формы ::