为什么用close 关闭程序，窗体关闭了但内存没有真正的释放？（在线）

[sfxllj]

为什么用close 关闭程序，窗体关闭了但内存没有真正的释放？

[waysoft]

方法之一onclose事件，加入如下语句

Action := caFree;

[angle097113]

onclose事件中
action:=cafree;

[sfxllj]

不是，我是说程序在关闭之后，内存中还有他在运行。

[delphi_xizhousheng]

这只是释放内存，没有释放指针
用FreeAndNil(form)

[Delphi_Li]

出现这种情况可能是你的窗口是你动态创建的，创建的参数使用的是Nil，例如：
XXX := TForm.Create( Nil );
由于没有指明XXX的创建者，所以必须使用XXX.Free来释放这个窗口，否则就会出现你所说的问题！！！

[delphi_xizhousheng]

你创建的时候的是运行时自动创建的还是设计期创建的？
form:=TForm.Create(application);//最好不用写nil

[foxnt]

你的问法好象有问题吧。
是关闭单个窗口，还是关闭整个程序？如果是关闭整个程序的话，既然程序都退出来了，还有什么“没有真正释放”的问题吗？

[sfxllj]

窗口是动态创建的，很多其他的组件也是动态创建的。但创建时没有用nil
就是form:=TForm.Create(application);这种。

[sfxllj]

Application.CreateForm(TFormDMenu, FormDMenu);
FormDMenu.ShowModal;
FormDMenu.Free;

[liufuyahong]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil (self);
end;

[sfxllj]

liufuyahong
你说的方法还是不行