如何关闭动态生成的窗体？(50分)

A

arychen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #1

我要做一个窗体，由一个按钮控制，按一下显示，按一下就关闭。如何实现？
还有动态生成的对象该什么时候删除？

 

A

alan_yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-21

• #2

用show和hide不就行了，何时删除那么就在程序退出的时候删除就行了

 

X

xman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #3

procedure TForm1.Button1Click(Sender: TObject);
begin
if form2.Showing then
form2.Hide
else
form2.Show ;
end;

 

刘

刘松ls

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #4

[][][8D]

 

A

alcor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #5

可以使用free

 

A

arychen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #6

问题是怎么找到我动态生成的窗体？

TForm1 *Form1=new TForm1(Application);
Form1在其他函数里是无法使用的。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #7

设置成单元的全局变量：
var
form1:TForm1;
然后其它单元 uses 这个单元

 

T

thbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #8

在窗体的OnClose事件中加入Action:=caFree
则动态生成的窗体会在Close时自动释放

 

S

sunkin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-22

• #9

在窗体的OnClose事件中加入Action:=caFree
则动态生成的窗体会在Close时自动释放
Form1 := nil;
完全释放所生成的窗体