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

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

05-11 14:10