关闭窗体程序，但是在进程中还是看到该程序在使用内存？怎么才能完全释放？(30分)

B

bincle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #1

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If i=5 Then
Begin
Form1.Free;
Form1:=nil;
End;
end;

使用的是这种方式关闭窗体，但在进程中还看到该程序占用内存？应该怎么做呢？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #2

Application.Terminate;

 

B

bincle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #3

能写的详细一些吗？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #4

If i=5 Then Application.Terminate;

 

L

lhlh_0_0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #5

直接利用主窗体的close方法
比如您的程序中 ，form1是主窗体，那只要form1。close就行了。

 

Q

q1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #6

对于打开的子窗体，要用
Form1.Release

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #7

也可以在要关闭的窗体的Onclose事件中写下：
action:=cafree;

 

雨

雨人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #8

如果你查看看程序的结构；
应用程序启动时，由Application构造窗体体；
application.create(Form1,TForm1);
如果单纯调用Form1.free方法时，只是释放了Form1对象；
然而进程并未结束；如果调用Form1.close；同时
Form1的onclose（(Sender: TObject；Action:Taction）中
Action:=caFree;
Application终止进程，并释放对象

 

T

tangle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #9

不用form1.free,form1:=nil这么麻烦，用freeandnil(form1)

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #10

close方法其实就是调用
application.terminate

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #11

用 halt;