Tüm MIDChild'lar minimize

[Tesla]

Açık olan tüm pencereleri minimize nasıl yaptırabilirim?

Kod: Tümünü seç

  for i:=0 to Form1.MDIChildCount-1 do
  begin
//    Form1.MDIChildren[i]... ???
  end;

[aslangeri]

s.a.

Kod: Tümünü seç

  for i := FMain.MDIChildCount-1 downto 0 do
  begin
    fmain.MDIChildren[i].WindowState:=wsMinimized;
  end;

kolay gelsin.

[Tesla]

Teşekkürler,

Hepsini göstermeye kalktığımda downto 0 do ile olmadı, tersini yaptım oldu.
birilerine lazım olur diye yapıştırıyorum,

Kod: Tümünü seç

procedure TForm1.ShowAll1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to Form1.MDIChildCount-1 do
  begin
    Form1.MDIChildren[i].WindowState:=wsNormal;
  end;
end;