+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : تعطيل غلق أي نافذة عن طريق Alt+F4 (/showthread.php?tid=109)
تعطيل غلق أي نافذة عن طريق Alt+F4 - delphi4ever - 26-03-2008
السلام عليكم ورحمة الله
نعلم أنه يمكن غلق نافذة أي برنامج عن طريق Alt+F4 ، لكن هناك طريقة في دلفي تمكننا من تعطيل هذه الخاصية وهي كالتالي:
1- نضغط مرتين على الفورم Form يعني بالضبط FormCreate ونكتب ما يلي:
كود :
KeyPreview := true;2- بعدها نتوجه نحو الحدث OnKeyDown للفورم نفسها ونكتب الكود التالي:
كود :
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;وبهذا قد قمنا بتعطيل Alt+F4 من أجل غلق النافذة.
وبالتـــوفيق
تعطيل غلق أي نافذة عن طريق Alt+F4 - HAFTARI - 26-03-2008
السلام عليكم ة رحمة الله تعالى و بركاته
أشكرك الأخ الكريم على هذه المحاولة,
فقط أود أن أضيف شيئا
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;
إن شاء الله سيكون الجميع قد استفاد.
تعطيل غلق أي نافذة عن طريق Alt+F4 - bilgads - 28-03-2008
السلام عليكم و رحمة الله وبركاته
هناك طريقة اخرى لالغاء ALT+F4
نكتب الكود التالي في الحدث OnClose
;Application.Run