Question

Delphi运行程序如何实现关闭隐藏所有子窗体，留下父窗体？

主窗体是父窗体。副窗体是子窗体。我要实现的是关闭隐藏不显示所有子窗体，留下父窗体（主窗体）。该效果，如图：

Answer 1

循环查询所有子窗体，如果显示则关闭
for i:=0 to mainForm.MDIChildcount do
begin
mainForm.MDIChildren[i].close; // or mainForm.MDIChildren[i].setToback;
end;