form动态产生，释放的问题！(100分)

X

xyusun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #1

一个form1的确定按钮事件中可动态产生一个form1自己。
请问如何，在form1的取消事件中，释放所有动态产生的form1。

 

T

tomboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #2

用一个链表把你创建的form记下来，然后一个一个地放掉

 

Q

Qiuliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-28

• #3

给你代码

代码:

var
  List: TList;
procedure OKClick;
begin
  List.Add(TForm1.Create(Application);
end;

procedure CancelClick;
var
  I: Integer;
begin
  for I := 0 to List.Count - 1 do
    TForm(List[I]).Free;
end;
initialization
  List := TList.Create;
finalization
  List.Free;

 

酷

酷尔贝塔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-29

• #4

参考一下吧：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=755049

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-05

• #5

接受答案了.