از کار انداختن Alt+F4

[Mohammad S]

با سلام خدمت دوستان عزیز
چطور می توانم Alt+F4 را در برنامه از کار بیندازم و بعد هم آن را فعال کنم؟
با تشکر

[DrDelphi2003]

سلام
وقتی که شما ALT+F4 رو میزنید یا پنجره رو close می کنید یک رویداد OnCloseQuery اتفاق می افته که شما می تونید تو این ایونت که مربوط به فرم می شه مقدار CanClose:=false رو قرار بدید و با اینکار مانع از بسته شدن برنامه می شید.
حتی می تونید مثلا یک پیغام نشون بدید یا مثلا پرسش ذخیره کردن رو از کاربر بپرسید یا ...
برای از کار انداختن این کافیه که هر جا خواستید از کار بیفته بنویسید

form1.OnCloseQuery:=nil
اگه خواستید دوباره به کار بیفته اون رو مساوی با همون پروسیجری که قبلا نوشتید بذارید.