Как закрывать MDI окна по клавише Esc?

← →
serg128 (2004-01-03 12:51) [0]

Привет всем! Возник вопрос: Как закрывать MDI окна по клавише Esc? Огромное спасибо!

← →
Всеволод Соловьёв (2004-01-03 12:58) [1]

onkeypress
иф нажали_Esc тогда close
ну?

← →
serg128 (2004-01-03 13:17) [2]

Увы неработает!

← →
jack128 (2004-01-03 13:26) [3]

KeyPreview := True;

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then Release;
end;

← →
jack128 (2004-01-03 13:28) [4]

В смысле if Key = VK_ESCAPE then Close; ессесенно.. :-)

← →
serg128 (2004-01-03 13:31) [5]

Помогло, спасибо!

← →
имя (2004-01-03 22:41) [6]

Удалено модератором