Закрытие окна по 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.

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

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

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.