最小化
var
i:integer;
begin
for i:=MDIChildCount-1 downto 0 do
MDIChidren.WindowState:=wsMinimized;
end;
最大化
var
i:integer;
begin
for i:=0 to MDIChildCount-1 do
MDIChidren.WindowState:=wsMaximized;
end;
还原
var
i:integer;
begin
for i:=0 to MDIChildCount-1 do
MDIChidren.WindowState:=wsNormal;
end;
end;
