[DOR]

Добрый день, подскажите пожалуйста, можно ли сделать закрытие активной формы по нажатию на кнопку клавиатуры "Esc". Если возможно, поделитесь кодом пожалуйста.

[M.A.D.M.A.N.]

Да, можно.
Событие OnKeyDown.

[lmikle]

Добавлю:
1. Если форма модальная и на ней есть кнопка, которая закрывает форму, то можно у этой кнопка выставить свойство Cancel.
2. Если форма не модальная, то тут есть варианты. Первый, как уже сказали, OnKEyDown (можно просто OnKeyPress, код #27), толко желательно еше выставить форме свойство KeyPreview. Можно сделать Action с горячей клавишей Esc.

[DOR]

а какой Key у Esc?
з.ы. написал позже предыдущего сообщения

форма модальная, написал так

Код:

1 2 3 4 5 6 7

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

выставил KeyPreview в true. Работает.

[M.A.D.M.A.N.]

VK_ESCAPE

Это не чат, блин!!! Хватит плодить сообщения, есть кнопка "Правка".

[Alegun]

Сообщение от DOR

...можно ли сделать закрытие активной формы по нажатию на кнопку клавиатуры "Esc"...

А так это можно сделать красиво

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.FormCreate(Sender: TObject); begin Form1.KeyPreview:= true; end;   procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = VK_ESCAPE then Close; end;   procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin AnimateWindow(Handle, 500, AW_HIDE or AW_BLEND); end;

©Drkb v.3.02(2009)