--------如何关闭窗体之中的窗体------

Question

在d6中，将一个窗体（name为sub1）设置为另一个窗体(name为mainform)的子窗体，这样就可以使sub1出现在mainform之中；但是sub1的关闭事件只能使它在mainform中最小化，怎么才能使他关闭或者隐藏呢？

Answer 1

在子窗体的onclose事件里写
action:= cafree;

Answer 2

Application.CreateForm(TSub1,sub1);
Sub1.Show;

Answer 3

var 
    Found:Boolean;
    I:Integer;
begin
  Found:= False;
  I:= 0;
  while (not found) and (I< MDIChildCount ) do
      if MDIChildren[I] = sub1 then  Found:= True
      else I:=I+1;
  if not found then
     sub1 := Application.CreateForm(TSub1,sub1);
  else
  sub1.Show;
end;