Width e Height

Question

Quando maximizo o form ele muda o Width e Height, mas eu queria saber o Width e o Height do form em estado normal tem como saber quando o form est� no estado de maximizado??...

Steve_narancic · Answer

voce pode criar duas variaiveis e no on create do form grava o Width e Height nestas variaveis...

Rud� · Answer

E se a pessoa redireciona o form como � que vai saber!...

Marco Salles · Answer

[quote:52ae993a47]E se a pessoa redireciona o form como � que vai saber![/quote:52ae993a47]evento OnResize[code:1:52ae993a47]procedure TForm1.FormResize(Sender: TObject);beginh:=form1.Height;W:=form1Width;end;[/code:1:52ae993a47]...

Rud� · Answer

Obrigado, funcionou!Agora mais uma d�vida, eu to querendo fazer o seguinte:� gravado no registro o tamanho do form e o WindowState, para que quando ele entrar de novo no form se for fechado o programa ficar do mesmo tamanho e WindowState. S� que achei esse problema do tamanho do form, se ele sair do programa com o form maximizado, ent�o quando ele entrar de novo vai tar maximizado s� que se ele restaurar para o normal ele tem que tar do mesmo tamanho que o cara colocou antes de fechar o programa!Exemplo � o programa do msn se vc deixa maximizado e fecha ele quando abrir de novo ele vai tar maximizado, se vc deixa normal com um determinado tamanho, quando fechar e abrir vai tar do mesmo modo, eu estou querendo fazer isso pode me ajudar??...

Marco Salles · Answer

[quote:fd3d67d78c]Exemplo � o programa do msn se vc deixa maximizado e fecha ele quando abrir de novo ele vai tar maximizado, se vc deixa normal com um determinado tamanho, [b:fd3d67d78c]quando fechar e abrir vai tar do mesmo modo, eu estou querendo fazer isso pode me ajudar[/b:fd3d67d78c]??[/quote:fd3d67d78c]eu nun entendi a dificuldade.... se voce mesmo diz que usa  os registros do windows[quote:fd3d67d78c]� gravado no registro o tamanho do form e o WindowState[/quote:fd3d67d78c] , porque n�o ao fechar o form voce grava os valores e ao abrir o form voce usa esses valores.....

Rud� · Answer

Se eu coloco o OnResize quando maximizo ele muda tb o tamanho, ai n�o tem como saber o tamanho do form no estado normal!

fiz tb assim mas n�o funcionou!

if(WindowState = wsNormal) then
Tamanho.Text:= IntToStr(Width) + � x � + IntToStr(Height);

Pode me ajudar??

Marco Salles · Answer

[quote:ce77a169fa]Se eu coloco o OnResize quando maximizo ele muda tb o tamanho, ai n�o tem como saber o tamanho do form no estado normal! [/quote:ce77a169fa]� porque as coisas acontecem depois do evento onResizeuma solu��o para istop � enviar uma mensagem para o windows e depois captura-latente aplicar esses conceitos abiaxo em seu programa [code:1:ce77a169fa]private    procedure Wmuser(var msg:Tmessage);message wm_user;    { Private declarations }  public    { Public declarations }  end;[/code:1:ce77a169fa][code:1:ce77a169fa]procedure TForm1.FormResize(Sender: TObject);beginpostmessage(handle,wm_user,0,0);end;[/code:1:ce77a169fa][code:1:ce77a169fa]procedure TForm1.Wmuser(var msg: Tmessage);begin//aqui voce vai testar o estado "futuro" do form..isto � logo //apos ele ser alterado....if form1.WindowState = wsMaximized then  showmessage(�maximizado�)else showmessage(�alterou�);end;[/code:1:ce77a169fa]...

Rud� · Answer

Valeu pela ajuda pessoal mas consegui uma coisa mais simples!

var
Pl: TWindowPlacement;
R: TRect;
begin
Pl.Length:= SizeOf(TWindowPlacement);
GetWindowPlacement(Form.Handle,@Pl);
R:= Pl.rcNormalPosition;
// Width:= R.Right-R.Left;
// Height:= R.Bottom-R.Top;
// Left:= R.Left;
// Top:= R.Top;

Esse c�digo mostra o tamanho do form no seu estado normal!

F�rum Width e Height #324055