Form�s estilo Delphi

Question

Ol� pessoALLTenho um form principal que fica no topo do desktop, com uma altura de 200. Agora preciso que meu form2 ao ser criado, fique abaixo do form principal, ou seja, que a �rea que ele possa uti...

Adriano Santos · Answer

[quote:a03023d30f=�jacascc�]Ol� pessoALLTenho um form principal que fica no topo do desktop, com uma altura de 200. Agora preciso que meu form2 ao ser criado, fique abaixo do form principal, ou seja, que a �rea que ele possa utilizar inicie abaixo do form principal. De forma semelhante ao Delphi, ou seja, no delphi possuimos a barra de ferramentas o object inspector e a tela de c�digo, o maximizarmos a tela de c�digo, ela n�o sobrep�e a barra de ferramentas.Algu�m tem alguma dica?{}�sJaca[/quote:a03023d30f]Vc pode fazer uma conta, exemplo:[code:1:a03023d30f]procedure TForm1.Button1Click(Sender: TObject);begin  FormDialogo.Top := (Screen.Heigth div 2) - (FormDialogo.Heigth div 2);  FormDialogo.Left := (Screen.Width div 2) - (FormDialogo.Width div 2);end;[/code:1:a03023d30f]Isso centraliza o FormDialogo na tela em rela��o ao Screen, ou seja, ele se adapta a resolu��o de tela....

Rodc · Answer

Voc� pode pegar o evento WM_MAXIMIZE e n�o permitir que a o form2 sobreponha o primeiro form.
O exemplo abaixo eu usei no evento OnCanResize() do form2, apenas para testar.

    NewHeight := Screen.Height - (Form1.Top + Form1.Height);
    Form2.Top := Form1.Top + Form1.Height;

Rodrigo Vaccari · Answer

Interessante a sua sugest�o rodcDei uma aprimorada nela:procedure TForm2.FormCreate(Sender: TObject);begin    Form2.Height := Screen.WorkAreaHeight - (Form1.Top + Form1.Height);    Form2.Width := screen.DesktopWidth;    Form2.Left := 0;    Form2.Top := Form1.Top + Form1.Height;end;Gostaria de inserir essa fun��o quando o usu�rio maximiza o form2, onde fa�o isso?...

Adriano Santos · Answer

[quote:ce59ebe1a4=�jacascc�]Interessante a sua sugest�o rodcDei uma aprimorada nela:procedure TForm2.FormCreate(Sender: TObject);begin    Form2.Height := Screen.WorkAreaHeight - (Form1.Top + Form1.Height);    Form2.Width := screen.DesktopWidth;    Form2.Left := 0;    Form2.Top := Form1.Top + Form1.Height;end;Gostaria de inserir essa fun��o quando o usu�rio maximiza o form2, onde fa�o isso?[/quote:ce59ebe1a4]No OnResize j� funciona....

Rodc · Answer

[quote:858bbed0b3=�Adriano Santos�]No OnResize j� funciona.[/quote:858bbed0b3]
Eis a quest�o, se colocar no OnResize o Form2 ficaria sempre fixo abaixo do form1, e n�o � assim que funciona, por exemplo, no Delphi. O form 2 tem de estar fixo apenas quando estiver maximizado.

Tem um c�digo que pega o evento de OnMaximize. Vou ver e depois posto aqui.

Rodc · Answer

N�o consegui testar pois aqui tenho o BCB e C++ � horr�vel para trabalhar com mensagens do Windows.
Mas vai ser algo como o c�digo abaixo.

Na declara��o:

procedure WMSize(var Message: TWMSize); message WM_SIZE;

Na implementa��o:

procedure TForm2.WMSize(var Message: TWMSize); message WM_SIZE;
begin
    if (Message.Msg = SIZE_MAXIMIZED) then
    // Seu c�digo de ajuste
end;

F�rum Form�s estilo Delphi #323944