delphi4arab منتديات دلفي للعرب

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

delphi4ever

السلام عليكم ورحمة الله

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

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

كود :
KeyPreview := true;

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

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

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

وبالتـــوفيق
السلام عليكم ة رحمة الله تعالى و بركاته

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