Foros Club Delphi - Centrado de Forms MDIChild

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Centrado de Forms MDIChild (https://www.clubdelphi.com/foros/showthread.php?t=7711)

Centrado de Forms MDIChild

He desarrollado una aplicacion MDI, en concreto mi form principal es mdiparent y todos los demas mdichild, resulta que todos los mdichild les he ubicado la propiedad para que se centren en el form principal, pero el centrado no es correcto, pues aparecen ligeramente hacia abajo, mi cliente tiene una resolucion en su PC de 800x600 y cada vez que ejecuto un form tengo que centrarlo manualmente con el mouse pues una parte de ellos aparece oculta, dando la impresion que no 'caben' en la pantalla.
En el form principal tengo una toolbar que creo puede ser una razon para este comportamiento.

Alguna idea

Prueba poner la propiedad Position del mdi child en poDeafultPosOnly y abrirla con el siguiente código:

Código:

var

  Placement: TWindowPlacement;

  ClWidth, ClHeight: Integer;



begin

  GetWindowPlacement(Self.ClientHandle, @Placement);

  ClWidth := Placement.rcNormalPosition.Right - Placement.rcNormalPosition.Left;

  ClHeight := Placement.rcNormalPosition.Bottom - Placement.rcNormalPosition.Top;

  with TForm2.Create(Self) do

  begin

    Left := (ClWidth - Width) div 2;

    Top := (ClHeight - Height) div 2;

  end;

Esto centrará el formulario hijo en el área del fromulario principal que no esté ocupada por toolbars, panels, etc.

// Saludos