Цитата:
|
Сообщение от 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)