dephiMDI&SDI

    技术2022-05-12  2

    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.不同的软件有不同的设计风格,也不要基于一种开发模式,关键要学会创新}


    最新回复(0)