怎么在主窗体中关闭所有子窗体

[peaked]

..如题

[taxi]

for i:=0 to MDIChildCount-1 do
MDIChildren[i].Close;

[laza]

procedure CloseMDIChild;
var
I: Integer;
begin
for I := Self.MDIChildCount - 1 downto 0 do
begin
Self.MDIChildren[I].Close;
Self.MDIChildren[I].Release;
end;
end;

[dlgog]

把窗体设置成不自动创建多好呀

[chenjiong]

我的办法太土，说不出口了，两位大虾在，就不讲了，其实就是在按钮事件中把所有窗口都关上就行了吧？form1.close;form2.close;.......个close,哈哈哈，这就是学delphi一月的菜鸟的方法。

[wangxd1976]

to chenjiong(老菜鸟)：funny boy