dephiMDI&SDI

Delphi(Pascal) code

{MDI父窗体的formstyle为fsmdiform
MDI子窗体的formstyle为fsmdichild
MDI子窗体设置为手动创建
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.不同的软件有不同的设计风格，也不要基于一种开发模式，关键要学会创新}