Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Клавиатура » Закрытие окна по Escape

Закрытие окна по Escape

Автор: Борисов Сергей

Если необходимо закрыть окно по нажатию на кнопку клавиатуры Escape, то скорее всего это какое-либо "вторичное" окно программы, тоесть не главное. Например для ввода значений. Как правило на таких окнах есть кнопки "Отмена" или подобные, по которым это окно и закрывается. У компонента TButtonCancel, которое нужно установить в True. Теперь при нажатии на кнопку Escape выполнится onClick этой кнопки. Если по событию onClick выполнить закрытие формы (Close), то, соответственно, и при нажатии на Escape форма будет закрываться закроится.

Но если нет никаких кнопок и нужно просто закрыть окно по нажатию на Escape? Создаем обработчик события OnKeyPress:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then close;
end;

key - это код нажатой клавиши. А код клавиши Escape равен 27.

Аренда квартир в Москве

Контакты, реквизиты. Формы заявок на аренду онлайн.

msk.reforum.ru
Instaforex спб

Доска объявлений и др. Журнал для бизнеса и карьеры.

instaforex.com

Просмотров: 2509

Обсудить на форуме