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

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

[HAFTARI]

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

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

[bilgads]

السلام عليكم و رحمة الله وبركاته
هناك طريقة اخرى لالغاء ALT+F4
نكتب الكود التالي في الحدث OnClose
;Application.Run