Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.047 c