(Resolvido) [Ajuda] Centralizar form MDI filho no form MDI pai

[maxley_gyn]

Gostaria de saber como faço para centralizar os formulários mdi child no formulário mdi pai, já tentei posceerncenter e o código abaixo mas não consigo, abraços.

procedure TFormFilho.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
var
  Rect: TRect;
  OurWidth: Integer;
  OurHeight: Integer;
begin
  if Showing then begin


    // Obtem o retângulo da área cliente MDI
    Windows.GetWindowRect(Application.MainForm.ClientHandle, Rect);


    // Calcular largura e altura da área cliente
    OurWidth := Rect.Right - Rect.Left;
    OurHeight := Rect.Bottom - Rect.Top;


    // Calcula a nova posição
    ALeft := (OurWidth - Width) div 2;
    ATop := (OurHeight - Height) div 2;
  end;


  inherited SetBounds(ALeft, ATop, AWidth, AHeight);
end;

[Jhonas]

exemplos

http://www.macoratti.net/dica61.htm

http://massuda.blogspot.com.br/2004/11/delphi-centralizar-janela-mdi-filha.html

abraço

[maxley_gyn]

Muito obrigado Jhonas, resolvi aqui com o código abaixo e position mainformcenter, valeu abraços.

type
  TFormFilho = class(TForm)
 public
     procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
end;


procedure TFormFilho.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
var MainForm: TForm;
    Rect: TRect;
    OurWidth: Integer;
    OurHeight: Integer;
  begin
    if Showing then begin


    MainForm := Application.MainForm;


    // Obtem o retângulo da área cliente MDI
    Windows.GetWindowRect(MainForm.ClientHandle, Rect);


    // Calcular largura e altura da área cliente
    OurWidth := Rect.Right - Rect.Left;
    OurHeight := Rect.Bottom - Rect.Top;


    // Calcula a nova posição
    ALeft := (OurWidth - Width) div 2;
    ATop := (OurHeight - Height) div 2;
  end;


  inherited SetBounds(ALeft, ATop, AWidth, AHeight);
end;

Editado Outubro 18, 2014 por maxley_gyn