جلو گیری از بسته شدن برنامه

[AmirWriter]

سلام .

می خواستم بدونم می شه کاری کرد که برنامه با کلید های ترکیبی Alt+F4 بسته نشود .

[Mahdi_Delphi]

بله میشود
توی رویداد onclose فرم برنامتون canclose رو False کنید.

[Hamid_PaK]

وضعیت کلید ALT+F4 رو چک کنید، توی رخداد OnCloseQuery فرم CanClose رو کنترل کنید...

یا حق !!!

[seyed_farid]

این کد رو اضافه کن.


procedure Tmain.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ( key = VK_F4 ) and ( ssAlt in shift )
then Key :=0;
end;

[ghabil]

این کد آخری کامله فقط حتما باید KeyPreview فرم رو هم True بکنی در این حالت.

[هاجر]

سلام
من امتحان کردم اما جوابی نداد بازم فرم رو می بنده

[Mahdi_Delphi]

سلام
من امتحان کردم اما جوابی نداد بازم فرم رو می بنده

شما در رویداد OnCloseQuery فرمتون مقدار CanClose رو false کنید دیگه فرمتون با ALT+F4 بسته نخواهد شد.

[AmirWriter]

canclose

فرمم یه همچین چیزی نداره . :گریه:

[Mahyaa]

canclose

فرمم یه همچین چیزی نداره . :گریه:


CanClose یکی از آرگومانهای رویداد OnCloseQuery هستش .

[AmirWriter]

ممنون دوستان مشکل با راه حال آقای مهدی و آقای سعید حل شد

[هاجر]

سلام
ممنون از شما دوستای عزیز اما (نمیدونم مشکل من هست یا اینکه برنامه ) دیگه نمیتونم با خود دکمه Exit هم برنامه رو ببندم .

[B_YAGHOBI]

1) شما یک متغییر بنام isClose تعریف کنید.
2) در رویداد OnCreate مقدار آنرا False کنید.
3) در رویداد CloseQuery کد CanClose := isClose ; قرار دهید.
4) در رویداد Exit خودتان وقتی میخوهید Close کنید ابتدا isClose := True ; را بنویسید.

[Mahdi_Delphi]

سلام
ممنون از شما دوستای عزیز اما (نمیدونم مشکل من هست یا اینکه برنامه ) دیگه نمیتونم با خود دکمه Exit هم برنامه رو ببندم .

همونطور که دوستمون گفتند یه دکمه روی فرم بزارید و داخل اون CanClose رو از طریق یه متغیر سراسری True کنید.حالا با اون دکمه فرمتون رو ببندید.

[ghabil]

اگر از اون کدی که اینجا نوشته شده بود با کی پرویو True استفاده میکردین فقط جلوی بسته شدن برنامه با Alt + F4 گرفته میشد نیازی هم به گرفتن متغیر سراسری نبود

[Hamid_PaK]

همیشه تمامی نظر و پیشنهاد ها را دریافت و بهترین رو انتخاب کنید ...
دیگه یک چنین کد پیش پا افتاده ای هم نیاز به این همه پست نداره یکی رو انتخاب کنید !!!

یا حق !!!