Текущий архив: 2006.09.10;
Скачать: CL | DM;
Вниз
OnKeyDown Найти похожие ветки
← →
zdm © (2006-08-23 17:31) [0]Подскажите, как организовать по нажатию, например, кнопки "ESC", в любом месте формы, выход из приложения.
procedure TForm_Osn.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=27 then close ;
end;
НЕ КАТИТ.
← →
DevilDevil © (2006-08-23 17:37) [1]свойство KeyPreview установи в true. Что означает "любом месте формы"?
← →
novill © (2006-08-23 17:38) [2]form1.Keypreview?
← →
zdm © (2006-08-23 17:41) [3]Спасибо :( , но вот беда приложение MDI и на главной форме это почему-то не катит.
← →
zdm © (2006-08-23 17:43) [4]а на "дочерних"-- пожалуйста, все работает
← →
DevilDevil © (2006-08-23 17:56) [5]if key=27 then Application.Terminate;
← →
Loginov Dmitry © (2006-08-23 22:15) [6]TActionList -> TFileExit (ShortCut = Esc)
Страницы: 1 вся ветка
Текущий архив: 2006.09.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.032 c
