[DOR]

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

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

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

[lmikle]

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

[DOR]

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

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

Код:

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"...

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

Код:

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)