Перехват ALT+F4

← →
pashaz © (2004-05-01 12:07) [0]

Всем привет.

Подскажите, как перехватить нажатие клавиш ALT+F4? Нужно на эту комбинацию сделать собственный обработчик.

← →
Jee © (2004-05-01 12:24) [1]

OnCloseQuery

← →
begin...end © (2004-05-01 12:32) [2]

> [1] Jee © (01.05.04 12:24)

Но, с другой стороны, если он будет закрывать окно мышью, может быть, перехват ему не нужен?

> pashaz © (01.05.04 12:07)

... Form1.KeyPreview := True; ... procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = vk_F4) and (ssAlt in Shift) then ShowMessage("Перехват!"); end;

← →
pashaz © (2004-05-01 12:41) [3]

Мышью окно закрываться не будет. Нужно перехватить только ALT+F4.

← →
pashaz © (2004-05-01 12:43) [4]

Причём фокус в это время может находиться не только на форме, но на любом из компонентов этой формы.

← →
Андрей Сенченко © (2004-05-01 12:48) [5]

pashaz © (01.05.04 12:43) [4]

Главное чтобы форма бала активна. Фокус неважен.
Вам уже дали решение - [2], только KeyPreview у формы не забудьте в true выставить

← →
begin...end © (2004-05-01 12:48) [6]

> pashaz

Ну если мышью не будет закрываться, тогда в обработчик OnCloseQuery ты попадёшь, видимо, только после нажатия Alt-F4. Т.е. тебе должно подойти и [1], и [2].

← →
Андрей Сенченко © (2004-05-01 12:53) [7]

begin...end © (01.05.04 12:48) [6]

А про обработчик OnCloseQuery вопросов не возникало. Нужно было только перехватить ALT-F4, а уж зачем это автору и что он там собирался писать - его дело.

← →
pashaz © (2004-05-01 12:58) [8]

>Андрей Сенченко

Вы совершенно правы. Суть как раз в том, чтобы при нажатии ALT+F4 не возникало OnCloseQuery. Вернее чтобы вообще ничего не происходило.

← →
begin...end © (2004-05-01 13:05) [9]

> [7] Андрей Сенченко © (01.05.04 12:53)

> А про обработчик OnCloseQuery вопросов не возникало

Я имел в виду, приемлемо ли здесь решение [1].

pashaz © (01.05.04 12:58) [8]

Тогда задача несколько изменяется:
Запретить закрытие формы по ALT-F4

я бы делал так ( пусть меня поправят если что неверно )

implementation var altf4 : boolean; procedure TFmMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = vk_F4) and (ssAlt in Shift) then altf4 := true; end; procedure TFmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin If altf4 then begin CanClose := false; altf4 := false; end; end;

> Андрей Сенченко © (01.05.04 13:16) [10]

Если фокус ввода находится, например, в каком-нибудь TEdit, то вызова TFmMain.FormKeyDown не будет, не так ли?
Думаю нужно копать клубже в сторону оконной процедуры

Извиняюсь, протормозил. Действительно все нормально. KeyPreview надо включить. :)

WM_SYSCOMMAND обрабатывайте и делайте там хоть свой обработчик, хоть черта лысого.

Перехват ALT+F4 Найти похожие ветки