怎样判断自动创建窗体是否存在？

Question

在创建窗体前我要判断它是否已经创建了，如果创建了我就不用去创建，请问应该怎样做？？

Answer 1

if Assigned(from1) then  // from1窗体存在procedure TForm1.FormDestroy(Sender: TObject);
begin
  form1 := nil;
end;

Answer 2

form1为自动创建。for i:=0 to Application.ComponentCount-1 do
begin
  if Application.Components[i] = form1 then
    ....
end;

Answer 3

以前我判断控件是否存：
var
  TempMItem: TMenuItem;
  i: Integer;
begin
  try
    TempMItem := FindComponent('MainSourceMItem') as TMenuItem;
      if TempMItem <> nil then
......
......
找是否存在名字为：MainSourceMItem的菜单项

Answer 4

FindComponent估计也能找窗体