تعطيل غلق أي نافذة عن طريق Alt+F4
#1
السلام عليكم ورحمة الله

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

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

كود :
KeyPreview := true;

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

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

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

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

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


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 2 ضيف