السلام عليكــم ورحمـة الله وبركاتــه
تعطيل خاصية الغلق بواسطة الضغط على
ALT + F4
أولا يجب تغيير القيمة فى الخصائص إلى
KeyPreview := true
ثم وضع الكود سورس في حدث الضغط
FormKeyDown
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;
أرجوا أن يكون الموضوع لم يطرح من قبل و تستفيدوا منه