非MDI窗体如何一次性关闭(50分)

C

curioussea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #1

在MDI中可以使用
for i:=MDIChildCount-1 do
wnto 0 do
Main.MDIChildren.Close;
关闭所有的窗体
如果不是MDI,那些用show显示的窗体如何一次性关闭呢？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #2

如果窗体不多，一个一个关一不麻烦呀。

 

陈

陈晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #3

你上面的是‘一次性’？
告诉你个好办法，中断应用程序，
？？？

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #4

要看你的form的owner是谁了。如果是application
可以：
var i:integer;
for i:=0 to application.componentcount-1 do
begin
if application.components is Tform then
tform(application.components).free;
end;
如果owner是主窗体，那就把以上的application改为self.

 

C

curioussea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #5

for i:=application.componentcount-1 do
wnto 0 do