进行form.free,反而报错(在调试情况下)。

解决方案 »

  1.   

    你第次都动太创建,然后再释放,就行了,记住,每一次都创建,然后再释放。如:
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    form2:=Tform2.Create(self);
    form2.Show;
    end;procedure TForm1.Button1Click(Sender: TObject);
    begin
    form2.Destroy;
    end;
    以上是两个按钮,一个创建,一个释放。
    还到看一看project->option让窗体不是自动创建。you know? :)
    如果是自动创建,让窗体变成Available forms 就OK了。
      

  2.   

    不是啊,form必须自己创建的,因为跟踪进行等于nil,不创建无法显示。
      

  3.   

    if gIntPreAlt=nil then
        gIntPreAlt:=TPreAltCls.Create;  //类创建
      if gIntPreAlt.mPreAltFrm=nil then
        gIntPreAlt.mPreAltFrm:=TPreAlertfrm.Create(Application); //类中窗体创建
      gIntPreAlt.mPreAltFrm.Show;  //窗体显示
      

  4.   

    gIntPreAlt.mPreAltFrm:=TPreAlertfrm.Create(Application);//类中窗体创建 
    这句有问题