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

[bmanfy]

سلام دوستان
با توجه به اینکه میخوام منوی فرم همیشه باشه
و مییخوام کاربر با زدن دکمه ی ضربدر فرم بسته نشه
تو یه کتاب خوندم که با رویداد onclosequery میشه مانع بسته شدن فرم شد
اما خوب نمیدونم چه طوری اط این رویداد استفاده کنم.

[www2006]

فکر میکنم اینجوری مشکل شما حل بشه :




procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caNone ;
end;

[vcldeveloper]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Something then
CanClose := False;
end;

فقط کافی در Object Inspector روی OnCloseQuery کلیک کنید و کلید F1 رو فشار بدید.

[حرفه ای]

البته یک boolean بگذار که اگه خودت خواستی فرم رو ببندی راحت بتونی این کارو بکنی

[mjdeveloper]

in formclose
بنویس
abort

[محمد حسین خانی]

در رویداد CloseQuery فرم CanClose را به نادرست تغییر بده

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;