如何判断一个FORM是否已经创建,如果已创建,判断其是否可视,如不可视将其可视并将其设为当前窗口?

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if Assigned(Form2) then
        if Form2.Visible=False then
          form2.Show;
    end;
      

  2.   

    Assigned(Form1)
     form1.showing
     SetForegroundWindow(from1.handle)
      

  3.   

    if assigned(Form1) then Form1:=TForm1.Create(nil);
    if Form1.visible=false then 
    begin
       Form1.visible:=True;
       Form1.show;
    end;
      

  4.   

    要想使用上面的招数,首先要保证在该窗体释放时设置窗体变量为nil,否则不能使用Assigned,切记。
      

  5.   

    begin
      if Assigned(Form1) then
        begin
          ..........
        end;
    end;