Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Hook

Лана Розанова © (2002-01-28 16:26:00)
Как правильно подавить Alt+F4?

Johnmen (2002-01-29 12:16:00) [1]
>>>Back : ты плохо прочитал вопрос... ;o)
>>>IronHawk : что значит ...Author>: Alexander Petrushev...???
Это стандартный способ, описанный в куче литературы !!!

MBo (2002-01-29 07:45:00) [2]
>Rash
>(ssAlt in Shift) А почему так правильнее? Что это дает?
потому что в Shift может быть ssAlt+ssCtrl, например

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

IronHawk (2002-01-28 18:29:00) [4]
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)

Rash (2002-01-28 18:14:00) [5]
and (ssAlt in Shift) А почему так правильнее? Что это дает?

MrAngel (2002-01-28 18:07:00) [6]
Johnmen © (28.01.02 17:19)Там есть специальные API. Сейчас их не помню. Сам когдато их использовал.

Johnmen (2002-01-28 17:19:00) [7]
>MrAngel : каким способом ты его откл. ?

MrAngel (2002-01-28 17:11:00) [8]
Да вы что народ!!! Всё намного проще!!!
Лана совет (я люблю советы давать=): Тебе надо отключить пункт меню "Close". Он то и обрабатывает Alt+F4.

Johnmen (2002-01-28 16:49:00) [9]
OnKeyDown :
if (Key=VK_F4) and (ssAlt in Shift) then Key:=0;

Виктор Щербаков (2002-01-28 16:47:00) [10]
to gek
>and (ssAlt in Shift)
Да так правильнее...

gek (2002-01-28 16:44:00) [11]
and (ssAlt in Shift)

Виктор Щербаков (2002-01-28 16:41:00) [12]
if (Key = VK_F4) and (Shift = [ssAlt]) then Key := 0;

Лана Розанова (2002-01-28 16:38:00) [13]
Виктор Щербаков
Я не это имела ввиду. Так я ее никогда не закрою.

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

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

Johnmen (2002-01-28 16:33:00) [14]
Свойство формы - KeyPreview=True и далее обрабатывать нажатие
Ali+F4

Виктор Щербаков (2002-01-28 16:28:00) [15]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := false;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »