如何通过按钮（button)来关闭fsMDIChild类型的窗体

[cqliutao]

如何通过按钮（button)来关闭fsMDIChild类型的窗体

[movingboy]

procedure Button1Click(Sender : TObject)
begin
Self.ActiveMDIChild.Close;
end;

[GoodHope]

MDIChild类型Form不能隐藏，关闭操作默认是最小化。如果想关掉它应该调用Free。在MDIChild Form的OnClose事件中指定Action := caFree，也能将自身释放。

[peaked]

在MDIChild Form的OnClose事件中指定Action := caFree

[ferrerocao]

两种方法
1、就是在button的click中
主窗体.activemdichild.close；这只是关闭当前激活的子窗体。不过可以连续使用。
2、也是在button的click中
调用子窗体的close事件。当然子窗体的close事件中要写action:=cafree;