Delphi 关闭MDI子窗口

需要在子窗口的onClose事件中吧Action = caFree; 就可以了。

 

 

procedure Tfrm_aa.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;