在一个项目中有两个FORM:FORM1、FORM2。在FORM1中有一个按钮用于调用FORM2。请问代码怎么编。主我在PROJECT/OPTION的AUTO—CREATE FORM中将FORM2去掉的。

解决方案 »

  1.   

    var
      F: TForm2;
    begin
      F := TForm2.Create(Application);
      F.Show
    end;
      
      

  2.   

    uses
        form2所对应的unit然后再
    botton的onclick事件中写
       if Assigned(Form2) then
         form2.showmodal
       else
         begin
           Form2:=TForm2.create(nil)
         try
           Form2.showmodal;
         finally
           Form2.free;
           Form2:=nil;
         end;
         end;
      

  3.   

    uses
      Unit2;   ...begin
      with TForm2.Create(Self) do
        try
          Show;
        finally
          Free;
        end;
    end;
      

  4.   

    uses form2;
      Application.CreateForm(TForm2, Form2);
      Form2.show;
      

  5.   

    谢谢楼上的了,我刚刚看了项目的代码,看到了这句,用了真的好用,回来有看到你写在这。哈哈,要是你早点写我就不用找这么多了。 wujunwei(wujun), YYQQ(阿鱼) 也谢谢你们,可是你们的程序里用了FINALLY那开了不是又关了吗?我记得好象FINALLY是不管有没有错误都要执行的啊。