正确关闭一个MDI子窗口

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

p

rocedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;