CaFree جواب نمی ده
من در جایی از برنامه این خط را نوشته ام:
if not Assigned(frmLarg) then begin
frmLarg:=TfrmLargView.Create(Self);
.
.
.
.
.
end;
یک بار هم به جای Assigned از frmLarg=nil استفاده کردم. اما اگر برای اولین بار که هنوز فرم ایجاد نشده به این خط برنامه برسد به درستی فرم را می سازد و دفعات بعدی با توجه به اینکه فرم وجود دارد از این قسمت صرف نظر میکند. مشکل آنجایی بوجود می آید که فرم دوم با استفاده از "ضربدر" بسته میشود (در onClose خطی که شما فرموده اید را نوشته ام) این با رسیدن به دستور Assigned یا frmLarg=nil هنوز فکر میکند که فرم وجود دارد!!!
چه کنم؟
برچسب:
نویسنده: محمد رضا جوادیان