Hook

← →
Лана Розанова © (2002-01-28 16:26) [0]

Как правильно подавить Alt+F4?

← →
Виктор Щербаков © (2002-01-28 16:28) [1]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := false;
end;

← →
Johnmen © (2002-01-28 16:33) [2]

Свойство формы - KeyPreview=True и далее обрабатывать нажатие
Ali+F4

← →
Лана Розанова © (2002-01-28 16:38) [3]

Виктор Щербаков
Я не это имела ввиду. Так я ее никогда не закрою.

Johnmen
Хотелось бы код. У меня есть такой, но при компиляции ошибки пишет.

If (Key=vk_F4) and (Shift:=ssAlt) then Key:=#0;

← →
Виктор Щербаков © (2002-01-28 16:41) [4]

if (Key = VK_F4) and (Shift = [ssAlt]) then Key := 0;

← →
gek (2002-01-28 16:44) [5]

and (ssAlt in Shift)

← →
Виктор Щербаков © (2002-01-28 16:47) [6]

to gek
>and (ssAlt in Shift)
Да так правильнее...

← →
Johnmen © (2002-01-28 16:49) [7]

OnKeyDown :
if (Key=VK_F4) and (ssAlt in Shift) then Key:=0;

← →
MrAngel © (2002-01-28 17:11) [8]

Да вы что народ!!! Всё намного проще!!!
Лана совет (я люблю советы давать=): Тебе надо отключить пункт меню "Close". Он то и обрабатывает Alt+F4.

← →
Johnmen © (2002-01-28 17:19) [9]

>MrAngel : каким способом ты его откл. ?

← →
MrAngel © (2002-01-28 18:07) [10]

Johnmen © (28.01.02 17:19)Там есть специальные API. Сейчас их не помню. Сам когдато их использовал.

← →
Rash (2002-01-28 18:14) [11]

and (ssAlt in Shift) А почему так правильнее? Что это дает?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in Shift) then begin
MessageBeep(0);
Key := 0;
end;
end;

Author>:
Alexander Petrushev
(2:5001/88.10)

Да вы чего народ!!!!! Бедная ты, замучили они тебя своими ответами. Такой вопрос уже был и я на него отвечал, но тебе повторю:
Procedure Form1.Close();
Begin
If Mona then Action:=caFree
else Actin:=caNone;
///
///
где Mona(Boolean) если True то закроем , если False - то нифига!

>Rash
>(ssAlt in Shift) А почему так правильнее? Что это дает?
потому что в Shift может быть ssAlt+ssCtrl, например

>>>Back : ты плохо прочитал вопрос... ;o)
>>>IronHawk : что значит ...Author>: Alexander Petrushev...???
Это стандартный способ, описанный в куче литературы !!!

Hook Найти похожие ветки