如何批量FREE 掉窗口?(0分)

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-04

• #1

听说用API可以把窗口FREE掉
怎么使用?
要求MAINFORM只包含一个窗口,如何实现?? 即CREATE 新的FORM 之前
把其他的的FORM FREE掉(注:不是MDI,是NORMAL FORM)

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #2

所有的窗体动态建立,用一个变量比如说
tempform:Tform;来代表建立的窗体
如果要建立别的窗体可以
if tempform<>nil then
freeandnil(tempform);
tempform:=Totherform.create(application);
这样就能保证每建立一个窗体就销毁另一个窗体

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #3

52free，好主意，可是我的WINDOW不是TFORM，是我一个自建窗体的子类，而我要那建的都是继承自这个TChild，而且各个WINDOW都不一样（有新的东东）。

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-30

• #4

我的想法是，去取应用程序内所有窗口的HANDLE，存在就干掉它，不知应该如何实现。

 

S

socid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #5

创建一个窗口句柄的列表（数组），凡不需要的就FREE掉

 

H

hcm0790

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #6

var
i,li_m: integer ;
begin
inherited;
i := screen.FormCount ;
for i := 0 to li_m-1do
begin
if screen.Forms.Name <> {yourMainForm} then
begin
screen.Forms.Free ;
end ;
end ;
end;

 

H

hryyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #7

用application.Components应该也可以

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #8

谢谢　hcm0790。我去试试。
socid,hryyx：能不能举个具体的例子。

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-15

• #9

to hcm0790:
你的这段代码我试过了，好像不能通过，
screen.forms会把某些第三方控件都当成FORM free 掉的话，有点问题。

 

S

socid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-11

• #10

好久没空上来，不知问题解决了没有？
我想，用hryyx说的很方便的
for I:=0 to Application.ComponentCount-1do
begin
if (Application.Components is TForm) then
begin
// 看看是不是你不要的form
(Application.Components as TForm).Free;
end;
end;

 

Y

yaoqiaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-11

• #11

以下代码实现批量FREE
TChild = class(TForm)
private
...
public
...
Procedure FormCreate(Sender : Tobject);

end;

procedure FreeChild;
Var
FormList : TList;
procedure FreeChild;
Var
i : integer;
begin
for i : = 0 to formlist.itme.count-1do
TChild(Formlist.item).free;
Formlist.clear;
formlist.free;
end;

Procedure FormCreate(Sender : Tobject);

begin
If FormList = nil then
Formlist:= Tlist.create;
Formlist.item.add(Self);
end;

 

J

jnbyte

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-11

• #12

form1 := nil;
form1.action := cafree;

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #13

我的FORM是普通FORM，而且每个FORM的都是自建TChildForm的子类
我认为应该是用API GET WIN HANDLE then
FREE IT ，BUT HOW TOdo
？
请帮忙

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #14

各FORM中还包含一些第三方控件，也会被当做FORM FREE 掉。。。。。。。

 

A

angelgekko

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #15

试试看。
for i:=0 to componentcount-1do
if Components.ClassParent.ClassName = 'TForm' then
TForm(Components).Close;

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #16

有道理，去判断父类!!
现在请哪位给出完整代码。。。。。

 

A

angelgekko

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #17

还不够完整？ ：P
关闭所有子窗体（非MDI）
procedure TForm.ButtonClick(Sender: TObject);
begin
for i:=0 to componentcount-1do
if Components.ClassParent.ClassName = 'TForm' then
TForm(Components).Close;

end;

>>要求MAINFORM只包含一个窗口
有个简单的方法。好像楼上也提了。

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #18

好!!!谢谢。可惜太穷了

 

A

angelgekko

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-12

• #19

呵呵，其实你如果只是“要求MAINFORM只包含一个窗口”
用二楼的方法就可以啦！

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-15

• #20

要求MAINFORM只包含一个窗口!
我的窗体类型不一样，只是同一个老爸而已，二楼的好像，只
限于同一FORM吧，有办法实现不同FORM的吗？