Закрытие окна по 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
Шлюхи Иваново настолько искусны в искусстве соблазна, что вы точно захотите вернуться к ним снова и снова. | Сайт проституток Новосибирска - идеальное место для выбора и заказа самой завораживающей и прекрасной компаньонки. | Анкеты проституток Нижнего Новгорода помогут вам выбрать идеального партнера для вечера. (11) | Индивидуалки Магнитогорска всегда готовы предложить вам незабываемый отдых и полный релакс за скромную плату. | Хотите ознакомиться с анкетами проституток Новокузнецка и выбрать ту, которая подарит вам незабываемые моменты? Мы вам поможем. | Проститутки Омска приглашают вас окунуться в мир страсти и наслаждения. (1) | У нас вы найдете анкеты проституток Щелково, которые готовы доставить вам настоящее удовольствие. Позвольте себе незабываемый отдых с нашими красотками. | Хотите испытать невероятные ощущения? Закажите проститутку Иркутска прямо сейчас и окунитесь в мир страсти. | Сайт проституток Ульяновска предлагает вам лучшие варианты интимных услуг от профессионалок.
Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.