Скачать: CL | DM;

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) А почему так правильнее? Что это дает?

---

← →
IronHawk ©   (2002-01-28 18:29) [12]

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)

---

← →
Back ©   (2002-01-29 00:19) [13]

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

---

← →
MBo ©   (2002-01-29 07:45) [14]

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

---

← →
Johnmen ©   (2002-01-29 12:16) [15]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c