各位高手：你们好！我有个问题：有关多文档（MDI）如何打开和关闭

Question

我自己的一个函数，可以创建窗体或打开一创建的窗体：procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var i: integer;
  Child:TForm;
begin  for i := 0 to Screen.FormCount -1 do
  BEGIN      if Screen.Forms[i].ClassType=FormClass then
      begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_RESTORE);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  END;   //for end    Child:=TForm(FormClass.NewInstance);
    TForm(fm):=Child;
    child.Create(AOwner);关闭窗体：在窗体的close 事件中加入：
action:=cafree;

Answer 1

打开:
  子窗体.Create(Self)
关闭：
  在子窗体的OnClose事件中设置Action := caFree，或者新建一个子窗体，该窗体上不放任何控件，在该窗体的OnClose事件中设置Action := caFree，其它子窗体从该窗体继承。