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

[Arkuz]

Здравствуйте.

Подскажите как закрыть окно по нажатию Esc?
В книгах не нашёл. Поиск по сайту ничего не показал.

И объясните в чём разница между KeyDown и KeyPress?

для дочерних окон

ставим keypreview в true

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

РАБОТАЕТ!!!

А как тоже самое сделать для маинформ...
Заранее спасибо.

[ОДИНОЧЕСТВО В СЕТИ]

если приложение свое то

procedure TForm1.applicationevents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
 if Msg.message = WM_KEYDOWN then
    begin

      if Msg.wParam in [VK_ESCAPE] then
                  close;
    end;
end;

[Arkuz]

ОДИНОЧЕСТВО В СЕТИ, будте добры, расскажите, что код делает?

[Kotofff]

ОДИНОЧЕСТВО В СЕТИ, по-моему забыто inherited, уж если процедура обрабатывает сообщения приложения...
Arkuz, как вариант посмотри пример - там все понятно. Спрашивай.

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.applicationevents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
 if Msg.message = WM_KEYDOWN then// приложение получает сообщение что клавиша нажата
    begin

      if Msg.wParam in [VK_ESCAPE] then// если это кнопка esc 
                  close;  // закрываем приложение
    end;
end;

про inherited не знаю ибо итак все работает! вот посмотрите

OnKeyDown - при нажатии какой-либо клавиши клавиатуры в тот момент, когда фокус ввода находится на объекте. Key - код нажатой клавиши, Shift - всё то же множество функциональных клавиш (этот параметр встречается во многих событиях).

OnKeyUp - при отпускании клавиши (антипод OnKeyDown).

OnKeyPress - при нажатии клавиши, которая печатает какой-либо символ (буква, цифра, знак). Key - уже не код клавиши, а сам символ (тип данных: Char - один символ).

[Arkuz]

Kotofff, интересный метод, правда странноватый. Вообще я никогда экшнлистом не пользовался. Спасибо.

ОДИНОЧЕСТВО В СЕТИ, вам скажу то же... аппликатионэвентс тоже не пользовался, и ваш метод для меня в диковинку. Спасибо.

[0nni]

ставишь KeyPreview в свойствах формы в True и вставляешь код из первого поста.

[Yurk@]

Arkuz, я делал так:

uses Messages;
...
procedure TaForm.edPfKodKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
VK_ESCAPE	: Close;
VK_F4		:;
VK_F5		:;
VK_F6		:;
VK_F8		:;
VK_F12		:;
end;
end;

[Бари]

скажите куда эти коды вставлять???

[Vervolf]

Сообщение от Бари

скажите куда эти коды вставлять???

как куда?там же написано.посмотри на заголовки процедур.