25.12.2006, 14:58
общий
это ответ
Здравствуйте, Negruzzi Cristian!
Можно использовать обработчик событий формы
FormKeyDown или FormKeyPress.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_ESCAPE then Form1.Close; // в зависимости какую активную форму
//закрывать, пишите имя этой формы
end;
или
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then Form1.Close; // в зависимости какую активную форму
//закрывать, пишите имя этой формы
end;
Удачи!