窗口切换(100分)

S

sunny_sky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #1

本人采用单文档界面做的程序。由一个窗口切换到另一个窗口，使用的代码是
main:=Tmain.Create(self);
main.Showmodal;
close;（切换到main窗口，同时关闭本窗口）
但为什么本窗口仍然没有关闭，只是隐藏在main窗口后面。如何才能真正关闭他呢？

 

C

commandor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #2

在本窗口的onclose中写入：
procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;


就OK了

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #3

showModal是阻塞式的，必须等到main关闭(close)之后才会返回。
所以，你应该在这样
main:=tmain.create(self);
self.hide;
main.showmodal;
main.free;
self.show;

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #4

>>真正关闭他呢？
默认关闭就是隐藏的，如果你想真正关闭它那么就Free它了，
但是主窗体Free了以后程序就终止了，所以主窗体只能hide.

 

向

向我开炮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-13

• #5

要真正关闭的话，就用commandor说cafree，这个是最彻底的关闭兼施放所占资源，不过用showmodal好像不太合适吧，我觉得最好还是用show，这样用鼠标键盘都能切换