Delphi MDI 子窗体的创建和销毁 [zhuan]

文章来源： Delphi MDI 子窗体的创建和销毁

1.如果要创建一个mdi child，先看是否有这个child 存在，如果有，则用它，如果没有再创建

//该函数判断MDI 子窗体是否存在，再进行创建和显示
function isInclude(formclass: TFormClass): boolean;
var
  i: Integer;
  form: TObject;
begin
  result := false;
  for i := 0 to frmMain.MDIChildCount do
  begin
    form := frmMain.MDIChildren[i];
    if form is formclass then
      result := true;
  end;
end;

//例如:打开frmAbout这个子窗体

procedure TfrmMain.actAboutExecute(Sender: TObject);
begin
  if not isInclude(TfrmAbout) then
//  if not Assigned(frmAbout) then
  begin
    frmAbout := TfrmAbout.Create(Self);
    frmAbout.Caption := '关于';
    frmAbout.Show;
  end
  else
    frmAbout.Show;
end;

 http://www.whois.com/whois/pc100.net

2. 如果判断一个form是否存在，用 assigned(aForm)来看是否有创建并指向这个instance. （需要注意form destroy掉时，aForm 指标并没有free掉，要注意下一条的细节。

3. 对于mdi child 的销毁，注意以下几项： 
   ①关闭mdi, 用form.close方法。 
   ②在 onClose事件处理中，需要判断是否可以 free掉, 用 Action := caFree 
   ③销毁form时，需要释放form参数的指针内容。 aForm := nil.

Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例： 
procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction); 
begin 
  Action := caFree; 
end;

Delphi为一个Form的关闭行为指定了四种方式，分别是： 
    caNone： 禁止Form被关闭  
    caHide： Form不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访问。 

    caFree： Form被关闭，并且释放其占用的资源。  
    caMinimize： Form被最小化而不是被关闭，这是MDI子窗口的默认关闭行为。

原文出自：http://www.cnblogs.com/python001/