Cerrar MDIChild cuando esta maximizada
 

Amigos del Club, mi problema es el siguiente:

Tengo una ventana MDIChild dentro de mi ventana padre MDIForm; hasta aqui todo Ok, al evento Onclose() de la ventana MDIChild le coloqué la función caFree y la cierra sin problemas; el clavo esta cuando maximizo el MDIChild, esta se expande y oculta sus botones de minimizar, maximizar y cerrar haciendo imposible su cierre.

¿Que código puedo utilizar para que se cierre la ventana MDIChild maximizada?
¿Existe acaso alguna función que cierre todas las ventanas hijo?

No se si estuvo bien preguntar dos cosas al mismo tiempo es solo que las dos me solucionan el problema.

Gracias amigos ;)

Me parece extraño ese comportamiento que indicas. Yo utilizo ventanas MDI y nunca ha a pasado.
De todas formas si quieres cerrar la ventana puedes poner un boton en su form hijo asignando Close al hacer click.
En cuanto a lo segunto en el form Midparent puedes usar las propiedades MDiChildcount y mdichildren[] para manipular los forms hijos.

Saludos

Posible razòn
 

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.

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

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.

Hola Diego827.

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.

Estimado ecfisa; gracias por responder.

Pruebo y posteo.

Gracias.

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

Entonces sería:
Un saludo.

Exacto; gracias a todos.
 

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! :rolleyes:

Hola Diego.

Te agrego dos opciones mas:
Un saludo. :)

Listo.
 

Hola,

Gracias a todos por sus respuestas, Saludos.

Parecere tonto... mas vale tarde que nunca
 

Hola amigos, solamente para comentarles:

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