MDI - Centralizar MDI Filho

Question

Pessoal, minha d�vida apesar de ser simples aparentemente, vem me causando um certo inc�modo.Quando crio um projeto MDI, e consequentemente os forms MDI filhos, em geral coloco a propriedade Position ...

Massuda · Answer

O posicionamento da sua janela MDI child � centrado na �rea cliente do form principal.

Esse posicionamento � feito em TCustomForm.CMShowingChanged na unit Forms... para modificar isso, voc� pode declarar sua pr�pria vers�o desse tratador de mensagem em seu form MDI child. Como esse tratador � relativamente complexo, acho que o mais f�cil � copiar todo o tratador original para a sua vers�o e modificar o par de linhas que interessa.

Wbb · Answer

Valeu Massuda, mas mesmo assim n�o sei como fazer. Se puder me dar uma orienta��o mais aprofundada eu agradeceria.T+wbb...

Massuda · Answer

:oops: Falar � muito mais f�cil do que fazer... Isso aqui � mais complicado do que parecia... vou te dar retorno sobre isso, mas n�o agora....

Godzilla_xf · Answer

Ol�, para ser bem franco eu nunca passei por isso, todos os forms MDI que uso eu s� modifico a propriedade [b:fce901f272]Position[/b:fce901f272] para [b:fce901f272]poScreenCenter[/b:fce901f272], e eles sempre ficam centralizados no form Principal da aplica��o o [b:fce901f272]fsMDIForm[/b:fce901f272], vc esta usando outros atributos neste form que n�o centraliza??.
Alinhamento ou algo assim...
Tentou com outros form�s MDi??...

espero ter ajudado....
falow

Massuda · Answer

[b:08264bbf84]GodZilla_XF[/b:08264bbf84]: o problema do [b:08264bbf84]wbb[/b:08264bbf84] � que o form filho n�o aparece centrado no meio do form pai... ele sempre aparece um pouco abaixo do esperado. Isso acontece porque o form filho � centrado na �rea cliente do form pai.

[b:08264bbf84]wbb[/b:08264bbf84]: a solu��o era mais simples :) Na classe que implementa o form filho, inclua a procedure SetBounds()...


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

...

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

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

      // Calcula a origem da �rea cliente MDI no form pai
      Origem := Rect.TopLeft;
      Dec(Origem.x, Application.MainForm.Left);
      Dec(Origem.y, Application.MainForm.Top);

      // Calcula nossa nova posi��o
      ALeft := (Application.MainForm.Width - Width) div 2  - Origem.x;
      ATop := (Application.MainForm.Height - Height) div 2  - Origem.y;
    end;

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

Se voc� fizer Position = poDefault ou poDesigned no form MDI filho, ele n�o ser� centrado no form pai (como era de se esperar).

Massuda · Answer

Mais um detalhe... se quiser o form filho centrado corretamente na �rea cliente do form pai...

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;

Diogoalles · Answer

Como fa�o para utilizar essa fun��o em todos meus forms ?existe alguma maneira que n�o seja colocar a fun��o em todos os forms ?obrigado Diogo...

Diogoalles · Answer

al�m da pergunta acima,gostaria de saber como utilizar ou adaptar essa fun��o para alinhar forms do tip fsNormal ?abra�oDiogo...

Massuda · Answer

[quote:6444a88e05=�diogoalles�]Como fa�o para utilizar essa fun��o em todos meus forms ?[/quote:6444a88e05]Use heran�a. Crie um form com estilo fsMDIChild com o codigo mostrado e derive seus forms a partir desse form (use [b:6444a88e05]File|New[/b:6444a88e05], clique na aba com o nome do seu projeto, selecione o form e clique OK)....

Diogoalles · Answer

Blz Massuda.. isso mesmo !gostaria de saber como utilizar ou adaptar essa fun��o para alinhar forms do tip fsNormal ? abra�o Diogo...

Massuda · Answer

[quote:16f8d80a6e=�diogoalles�]...como utilizar ou adaptar essa fun��o para alinhar forms do tip fsNormal ? [/quote:16f8d80a6e]A id�ia original era centrar forms MDIChild. Para forms normais, acho que seria mais simples usar as op��es da propriedade TForm.Position...[list:16f8d80a6e][*:16f8d80a6e]poDesktop: centrar na �rea de trabalho do Windows[*:16f8d80a6e]poScreenCenter: centrar na tela[*:16f8d80a6e]poMainFormCenter: centrar no form principal[*:16f8d80a6e]poOwnerFormCenter: centrar no form que � Owner do form que est� sendo exibido (Owner � o par�metro passado no Create do form)[/list:u:16f8d80a6e]...

F�rum MDI - Centralizar MDI Filho #259082