需要在子窗口的onClose事件中吧Action = caFree; 就可以了。
procedure Tfrm_aa.FormClose(Sender: TObject; var Action: TCloseAction);begin Action := caFree;end;