Delphi(Pascal) code{MDI父窗体的formstyle为fsmdiformMDI子窗体的formstyle为fsmdichildMDI子窗体设置为手动创建1.MDI子窗体最大化以后，在主窗体的关闭下面就会看到MDI子窗体的最大化和最小化还有关闭按钮；子窗体关闭时在OnClose里面加入下面的代码就可以关闭子窗体了：}procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);begin action:=cafree;end;{2.只运行一个子窗体}procedure TForm1.ButtonClick(Sender: TObject);begin try if application.MainForm.MDIChildCount>0 then activemdichild.Close; finally TForm2.Create(Self); end;end;{3.不同的软件有不同的设计风格，也不要基于一种开发模式，关键要学会创新}
