见StdActns单元的代码:procedure TWindowMinimizeAll.ExecuteTarget(Target: TObject); var I: Integer; begin { Must be done backwards through the MDIChildren array } with GetForm(Target) do for I := MDIChildCount - 1 downto 0 do MDIChildren[I].WindowState := wsMinimized; end;
var
I: Integer;
begin
{ Must be done backwards through the MDIChildren array }
with GetForm(Target) do
for I := MDIChildCount - 1 downto 0 do
MDIChildren[I].WindowState := wsMinimized;
end;