张志峰的博客

水滴石川，积少成多。

导航

Delphi 关闭MDI子窗口

Posted on 2016-04-20 13:44  ╰★张志峰★╮  阅读(406)  评论(0)  编辑  收藏  举报

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

 

 

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