没有,除非你在OnClose事件中加
Action:=caFree;
或者外部调用Free。

解决方案 »

  1.   

    同意老大的,如果你使用
    if not Assigned(form1) then
      application.createform(Tform1,form1)
    创建窗体是比较保险的
      

  2.   

    那么
      Form1:=Tform1.create(apllication);
      application.Create(TForm1,Form1)
    有什么区别啊!
      

  3.   

    with TForm.Create(self) do
    begin
      ShowModal;
      Free;
    end;
      

  4.   

    那么
      Form1:=Tform1.create(apllication);
      application.Create(TForm1,Form1)
    有什么区别啊!
    我觉得没区别,
    没有,除非你在OnClose事件中加
    Action:=caFree;//
    加上Form1:=nil//不加,Assigned(form1)=true;
    或者外部调用Free。
      

  5.   

    with TForm.Create(Self) do try
      ShowModal;
    finally
      Free;
    end; 
      

  6.   

    不好意思,说错了。
    会自己释放,当还是要自己创建。if not Assigned(LogForm) then
       LogForm := TLogForm.Create(self);
    if LogForm.ShowModal = mrOk then
    begin
       ...
    end;