求助！如何判断一个子窗体是否关闭成功？

Question

在一个多文档程序里，想关闭子窗口（但用户可以取消关闭），如何判断子窗口是否关闭成功了？我使用下面方法，有时成功，要是不行，请问为什么，谢谢！function TMainForm.CloseAll:boolean;
var i : integer;
begin
  Result := True;
  if MdiChildCount > 0 then
     for i := MdiChildCount-1 downto 0 do begin
         MdiChildren[i].Close;
         Application.ProcessMessages;
         if MdiChildren[i] <> nil then begin
            Result := False;
            Break;
         end;
     end;
end;

Answer 1

MdiChildren[i].Close;
MdiChildren[i] = nil

Answer 2

不行吧，如果在子窗口的close事件里，用户取消了关闭操作呢，这时就不能强行MdiChildren[i] := nil，哪位兄台还有别的高招啊？

Answer 3

Mdi的子窗体Close时一般都是隐藏了，要在OnClose中将Action置为caFree，这样才能真正的释放。