چک کردن ایجاد فرم

[v_shalchian]

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

[مهدی کرامتی]

فرض کنید متغیری که از نوع فرم مورد نظر تعریف شده، Form2 باشد:

var Form2:TForm2;
در اینصورت میتوانید با بررسی مقدار متغیر فوق چک کنید که این فرم ایجاد شده یا نه:

if Form2=Nil then showmesseage('Form2 is not created')
else showmesseage('Form2 is created');

[MToloo]

البته با اجازه بزرگترها مخصوصا جناب Delphi assistant, بد نیست یک کلام هم از مادر عروس !بشنویم:
این شرطی که شما گذاشتید یعنی مقایسه با nil برای بار اول درست کار میکنه. اما اگه فرض کنیم فرم یکبار ایجاد شده و بعد کاربر از اون خارج شده و ما حتی در واقعه OnClose اون نوشته باشیم: action:= cafree که فرم از حافظه خارج بشه باز هم شرط فوق برای ما درست جواب نمیده (True برمیگردونه در صورتی که متغیر فرم الان قابل استفاده نیست و باید create بشه).
در این مورد من 2 تا راه پیشنهاد میکنم. تا نطر بزرگان چی باشه !! :
یکی اینکه واقعه OnClose اینطوری نوشته بشه:

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

راه دوم:

function IsFormCreated (const FormName: string): Boolean;
var
i: integer;
begin
Result:= False;
for i:= 0 to Screen.FormCount-1 do
begin
if Screen.Forms[i].Name= FormName then
begin
Result:= True;
break;
end
end;
end;

[MToloo]

البته با اجازه بزرگترها مخصوصا جناب Delphi assistant, بد نیست یک کلام هم از مادر عروس !بشنویم:
این شرطی که شما گذاشتید یعنی مقایسه با nil برای بار اول درست کار میکنه. اما اگه فرض کنیم فرم یکبار ایجاد شده و بعد کاربر از اون خارج شده و ما حتی در واقعه OnClose اون نوشته باشیم: action:= cafree که فرم از حافظه خارج بشه باز هم شرط فوق برای ما درست جواب نمیده (True برمیگردونه در صورتی که متغیر فرم الان قابل استفاده نیست و باید create بشه).
در این مورد من 2 تا راه پیشنهاد میکنم. تا نطر بزرگان چی باشه !! :
یکی اینکه واقعه OnClose اینطوری نوشته بشه:

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

راه دوم:

function IsFormCreated (const FormName: string): Boolean;
var
i: integer;
begin
Result:= False;
for i:= 0 to Screen.FormCount-1 do
begin
if Screen.Forms[i].Name= FormName then
begin
Result:= True;
break;
end
end;
end;

[مهدی کرامتی]

مرسی.

البته من با این فرض اون کد رو نوشتم که از روش اول بیان شده توسط شما استفاده شده باشه.