Cerrar MDIChild cuando esta maximizada

[Diego827]

Creo que no lo dije todo; estoy utilizando controles y forms con pieles, Business skin. Quizas esa sea la causa. Veo y posteo gracias amigo.

[roman]

Cuando la ventana carece de menú principal, al maximizar una ventana hija, los botones de cerrar, maximizar, etc., se pierden. Si la ventana principal tiene menú principal, los botones aparecen normalmente.

// Saludos

[Diego827]

Hola estimado roman, gracias por tu respuesta.

Creo fielmente en lo que has dicho; esa es la razón y ya sospechaba que las pieles tenian que ver pero luego de tu comentario estoy de acuerdo.

Ahora bien, como puedo cerrar la ventana que este maximizada? existe algun método para la eliminación de ventanas hijas?
Existe acaso un metodo que elimine todas las ventanas hijas de golpe?

Se que puedo agregar un boton de "cerrar" y al metodo onclick() asignarle la funcion caFree() pero seria algo chapucero (clasico de los novatos como yop)

Gracias amigos.

[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.