المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : تعطيل غلق أي نافذة عن طريق Alt+F4


delphi4ever
26-03-2008, 08:08 PM
السلام عليكم ورحمة الله

نعلم أنه يمكن غلق نافذة أي برنامج عن طريق Alt+F4 ، لكن هناك طريقة في دلفي تمكننا من تعطيل هذه الخاصية وهي كالتالي:

1- نضغط مرتين على الفورم Form يعني بالضبط FormCreate ونكتب ما يلي:

KeyPreview := true;

2- بعدها نتوجه نحو الحدث OnKeyDown للفورم نفسها ونكتب الكود التالي:

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

وبهذا قد قمنا بتعطيل Alt+F4 من أجل غلق النافذة.

وبالتـــوفيق

HAFTARI
26-03-2008, 10:06 PM
السلام عليكم ة رحمة الله تعالى و بركاته

أشكرك الأخ الكريم على هذه المحاولة,
فقط أود أن أضيف شيئا
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;
إن شاء الله سيكون الجميع قد استفاد.

bilgads
28-03-2008, 08:14 PM
السلام عليكم و رحمة الله وبركاته
هناك طريقة اخرى لالغاء ALT+F4
نكتب الكود التالي في الحدث OnClose
;Application.Run