Colocación de un formulario

[ecfisa]

Hola.

Siempre que el MDIForm sea mayor, podes centrar los MDIChilds luego de la creación, v. gr.:

Código PHP:

void __fastcall TMDIForm::CenterForm(TForm *F)
{
  F->Left = (this->ClientWidth  - F->Width) / 2;
  F->Top  = (this->ClientHeight - F->Height - this->ToolBar1->Height ) / 2;
}

// Ejemplo de uso:
void __fastcall TMDIForm::ToolButton1Click(TObject *Sender)
{
  if (!MDIChild1)  // ( * )
    MDIChild1 = new TMDIChild1(this);
  else
    MDIChild1->BringToFront();
  //...
  CenterForm(MDIChild1);
} 


( * ) Usando Action = caFree. La comprobación de la existencia del MDIChild requiere que pongas a nulo la instancia al cierre,
o podrá provocar una excepcion al intentar traer al frente un objeto ya liberado.

Código PHP:

void __fastcall TMDIChild1::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
  MDIChild1 = NULL; // <- 
} 


Si dejas el MDIChild minimizado al cerrarlo (no usas Action = caFree) deberías cambiar la linea,

Código PHP:

 MDIChild1->BringToFront(); 


por:

Código PHP:

 MDIChild1->WindowState = wsNormal; 


Muestra:

(ajusté los tamaños de los MDIChild para que no se solapen)

Saludos