delphi中的MDI代码怎么写，跟书上说的不一样。

[cogi2000]

delphi中的MDI代码怎么写，跟书上说的不一样。

[「已注销」]

将主Form的FormStyle设置成fsMDIForm，子Form的FormStyle设置成fsMDIChild，
并在OnClose事件中写入代码Action:=caFree;

然后需要新建Child时调用子Form.Create(Self)，

最后在Project|Options中的Forms中将子Form移如Available Form中。