Form filho ocupando toda a area de trabalho do form pai

Question

Ol�, antes de mais nada quero dizer que procurei mas n�o encontrei pelos foruns o que eu preciso e por isso estou postando aqui.vou explicar o que eu estou precisando.Tenho um form que e do tipo fsMDI...

Massuda · Answer

Acho que isso deve funcionar. Inclua no seu form fsMDIChild...

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

...

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

    MainForm := Application.MainForm;

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

    // Ajusta a nova posi��o
    ALeft := Rect.Left;
    ATop := Rect.Top;
    AWidth := Rect.Right - Rect.Left;
    AHeight := Rect.Bottom - Rect.Top;
  end;

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

Godzilla_xf · Answer

[quote:540375816d=�Massuda�]Acho que isso deve funcionar. Inclua no seu form fsMDIChild...[code:1:540375816d]type  TSeuFormFilho = class(TForm)  public    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;    ...  end;...procedure TSeuFormFilho.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);var  MainForm: TForm;  Rect: TRect;begin  if Showing then begin    MainForm := Application.MainForm;    // Obtem o ret�ngulo da �rea cliente MDI    Windows.GetWindowRect(MainForm.ClientHandle, Rect);    // Ajusta a nova posi��o    ALeft := Rect.Left;    ATop := Rect.Top;    AWidth := Rect.Right - Rect.Left;    AHeight := Rect.Bottom - Rect.Top;  end;  inherited SetBounds(ALeft, ATop, AWidth, AHeight);end;[/code:1:540375816d][/quote:540375816d]Ol�, muito obrigado Massuda, pelo apoio, so que eu n�o entendi uma coisa.eu usei a procedure que vc me passou que erda da da procedure SetBounds, so que o que eu n�o entendi e quando eu vou chamar ela, e que parametros eu passo para a mesma, por que da forma com eu fiz:[b:540375816d]SetBounds(0,0,Application.MainForm.ClientWidth,Application.MainForm.ClientHeight);[/b:540375816d]eu acredito que estou fazendo algo de errado, por que ele ajusta ao tamanho da area cliente do meu form pai, porem como eu tenho componentes do tipo [b:540375816d]TMainMenu, TTollBar e TStatusBar[/b:540375816d], o form pai cria umas barras de rolagem. o eu precisava que isso n�o acontese-se.se o Sr. puder me ajudar ficarei grato, muito obrigado....

Massuda · Answer

[quote:37645262a0=�GodZilla_XF�]...o que eu n�o entendi e quando eu vou chamar ela, e que parametros eu passo para a mesma[/quote:37645262a0]Voc� n�o precisa chamar a procedure, ela ser� chamada automaticamente. N�o testei, me diga qual � o resultado....

Godzilla_xf · Answer

[quote:e11ab62e13]Voc� n�o precisa chamar a procedure, ela ser� chamada automaticamente. N�o testei, me diga qual � o resultado.[/quote:e11ab62e13]Ol�, eu tentei [b:e11ab62e13] sem fazer [/b:e11ab62e13] a chamada da procedure e n�o acontece nada. e ai tentei cham�-la e passar os par�metros e ai fica como citei acima...

Massuda · Answer

Por favor, esque�a o que eu postei antes. Como eu disse, n�o testei :oops: . Experimente isto...

procedure PosicionarForm(AForm: TForm);
begin
var
  Rect: TRect;
begin
  Windows.GetWindowRect(Application.MainForm.ClientHandle, Rect);

  InflateRect(Rect, -2 * GetSystemMetrics(SM_CXBORDER), -2 * GetSystemMetrics(SM_CYBORDER));
  OffsetRect(Rect, -Rect.Left, -Rect.Top);

  AForm.BoundsRect := Rect;
end;

...chame PosicionarForm passando o form fsMDIChild como parametro logo ap�s criar o form fsMDIChild.

Ol�, Massuda, como eu posso te agradecer, funcionou perfeitamente, muito obrigado mesmo. era o que eu precisava, vlw mesmo.

at� ++++

Godzilla_xf · Answer

[quote:e033a6973b=�Massuda�]Por favor, esque�a o que eu postei antes. Como eu disse, n�o testei  :oops: . Experimente isto...[code:1:e033a6973b]procedure PosicionarForm(AForm: TForm);beginvar  Rect: TRect;begin  Windows.GetWindowRect(Application.MainForm.ClientHandle, Rect);  InflateRect(Rect, -2 * GetSystemMetrics(SM_CXBORDER), -2 * GetSystemMetrics(SM_CYBORDER));  OffsetRect(Rect, -Rect.Left, -Rect.Top);  AForm.BoundsRect := Rect;end;[/code:1:e033a6973b]...chame PosicionarForm passando o form fsMDIChild como parametro logo ap�s criar o form fsMDIChild.[/quote:e033a6973b]Ol�, Massuda, como eu posso te agradecer, funcionou perfeitamente, muito obrigado mesmo. era o que eu precisava, vlw mesmo.at� ++++...

F�rum Form filho ocupando toda a area de trabalho do form pai #345924