رویداد Close Query فرم

[hasandrw]

سلام
با دستور CanClose:=false; دکمه فرم را غیر فعال کردم .
حالا می خوام از طریق یک دکمه دیگه در فرم این کار را انجام بدم . با چجوری بهش دستور بدم ؟

[MohsenB]

سلام

جای اون کدتون این کد رو بنویسید :

CanClose:= blnCanClose;

بعد از اون این متغییر blnCanClose رو یه جای عمومی تعریف کنید و هر جای برنامه که خواستید مقدارشو تغییر بدین .

[hasandrw]

برای غیر فعال کردن دکمه Close فرم از این روش که شما گفتین روی کد blnCanClose خطا می گیره.

[MohsenB]

برای غیر فعال کردن دکمه Close فرم از این روش که شما گفتین روی کد blnCanClose خطا می گیره.


اول باید تعریفش کنید . مثلا :

var
blnCanClose:Boolean;

[hasandrw]

حالا اگه بخوام با یک Button که روی فرم است فرم را close کنم با دستور Close نمی تونم این کار را انجام بدم.
باید چجوری براش بنویسم؟

[MohsenB]

حالا اگه بخوام با یک Button که روی فرم است فرم را close کنم با دستور Close نمی تونم این کار را انجام بدم.
باید چجوری براش بنویسم؟

شما باید ابتدا مقدار اون متغییر رو عوض کنید بعد از اون پنجره رو ببندید . مثل :


blnCanClose:= True;
Close;

[hasandrw]

در ضمن اینجا اسم متغییر رو هی چی خودم بخوام می تونم بزارم؟

[MohsenB]

بله ، فرقی نداره .

[hasandrw]

بعدش یک مشکل کوچولو :
چون رو Button ای که روی فرم قرار داره کد "پست 6" را نوشتم .اگه یک بار از فرم خارج بشم . برای بار دیگه که فرم را باز می کنم دکمه Close فرم دوباره فعال میشه ؟
راحل چیه ؟

[MohsenB]

روی فرم برنامه دوبار کلیک کن و این کد رو بهش اضافه کن :


procedure TForm1.FormCreate(Sender: TObject);
begin
blnCanClose:= False; //این کد
end;

[hasandrw]

75244
بازهم جواب نمیده . خودتون یک نگاهی بهش بندازید بهتره

[MohsenB]

خوب شما که فرم رو اینجوری نمایش می دید و اونو نمیسازید باید بجای رویداد "زمان ساخت" ( OnCreate ) توی روی داد "زمان فعال شدن" ( OnActivate ) بنویسید . مثل :


procedure TForm2.FormActivate(Sender: TObject);
begin
BlnCanClose:=false;
end;