Cerrar MDIChild cuando esta maximizada

[ecfisa]

Hola Diego827.

Existe acaso un metodo que elimine todas las ventanas hijas de golpe?

Código Delphi [-]
procedure TMDIForm.btCloseAllChildsClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= MDIChildCount-1 downto 0 do
    MDIChildren[i].Close;
end;

Siempre que todos los MDIChildren tengan Action:= caFree en su evento OnClose, si no se minimizarán.

Saludos.

[Diego827]

Estimado ecfisa; gracias por responder.

Pruebo y posteo.

Gracias.

[ecfisa]

Perdón Diego, ahora reparo que era el foro C++ Builder.

Entonces sería:

void __fastcall TForm1::btnCloseAllChildsClick(TObject *Sender)
{
  for(int i= MDIChildCount-1; i>= 0; i--)
    MDIChildren[i]->Close();
}

Un saludo.

[Diego827]

Estimado ecfisa:

Encontre algo interesante y que te da la total razon:

Código Delphi [-]
/*
void __fastcall TForm1::CloseChildrenClick(TObject *Sender)
{
  for(int i = MDIChildCount - 1; i >= 0; i--)
    MDIChildren[i]->Close();
}

void __fastcall TForm1::MyArrangeIconsClick(TObject *Sender)
{
  Form1->ArrangeIcons();
}

void __fastcall TForm1::MyCascadeClick(TObject *Sender)
{
  Form1->Cascade();
  }

Gracias a todos!

[ecfisa]

Hola Diego.

Te agrego dos opciones mas:

/* Mosaico Horizontal */
void __fastcall TForm1::tbTileHrzClick(TObject *Sender)
{
  TileMode = tbHorizontal;
  Tile();
}

/* Mosaico Vertical */
void __fastcall TForm1::tbTileVerClick(TObject *Sender)
{
  TileMode = tbVertical;
  Tile();
}

Un saludo.

[Diego827]

Hola,

Gracias a todos por sus respuestas, Saludos.

[Diego827]

Hola amigos, solamente para comentarles:

Gracias por lo que me ayudaron en este hilo. Muy amables! Todavía me esta sirviendo!!!