启动是不闭创建 frm.xx窗体
在用到的地方用如下语句创建
   frm_xx:=tform.cerate(application);
   frm_xx.showmodal();关闭窗体时用如下语句
  frm_xx.free;

解决方案 »

  1.   

    free:如果是form:=tform.create(application/false);free;
    close;关了就可以了,释放?不干净
    hide :隐藏了,和visible:=false;
    terminate:应用程序的终了;但是要处理一些事情,有时,可能会有异常,也关不了应该程序
      

  2.   

    Borland 并不建议用户使用Application的create  form方法!
      你最好用窗体本身的create方法,
       procedure ……
       var
         Form1:TForm1;
       begin
         Form1:=TForm1.Create(Application);
         try 
           Form1.showmodal;
         finally
           Form1.free;
           Form1:=nil;
         end;
       end; 这是模态显示一个窗体
       非模态的窗体要用Assigned()方法来判断,内存中是否有该实例存在,有则显示,无则新建
    begin
      if not assigned(Modeless) then
        modeless:=TModeless.create(Application);
      modeless.show;
    end;