تعطيل غلق أي نافذة عن طريق 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 من أجل غلق النافذة.

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