غیر فعال کردن کلید alt+f4

[matinebi]

چطور میشه کلید alt+f4 را غیر فعال کرد؟
با تشکر

[Delphi-Man]

با سلام
اگه منظورتون فقط برنامه خودتونه می تونین از رویداد OnCloseQuery فرم کمک بگیرید (یا onClose)
طرز کارش هم اینطوریه که اگه خواستید بسته شدن رو لغو کنید باید دستور زیر رو در رویداد بنویسید:


action:=caNone

اما برای این که Alt+F4 رو تشخیص بدید:



if (getkeystate(vk_menu)<-2) and (getkeystate(vk_F4)<-2) then
action:=canone;
end else action:=cafree; {or action:=cahide}

[matinebi]

دوست عزیز این کد رو ارور میگیره
;action:=canone

[Felony]

اگه منظورتون فقط برنامه خودتونه می تونین از رویداد OnCloseQuery فرم کمک بگیرید (یا onClose)

از کد زیر در رویداد Close استفاده میشه :

Action:=caNone

و از کد زیر هم در رویداد OnCloseQuery :

CanClose:=False;

[hojjatcroos]

با استفاده از کامپوننت DWINLOCK میشه این کلید و سایر کلید ها مثل alt+tab رو تغییر داد

[امید امرایی]

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