centalizar forms

24/08/2004

Pessoal

to com um problema para centralizar forms...

quero que na resolução 800x600 os forms fiquem exatamente no tamanho da tela e com resolução superior fiquem centralizados...

o problema é que quando a gente usa a propriedade para centralizar, o form é centralizado no tamanho da tela, ou seja, em 800x600 fica no centro da tela com um pedaço superior vago e um pedaço inferior utrapassando... isso pq é centralizado não levando em conta a barra Iniciar do windows!

alguem tem alguma sugestão?


Mrcdlf

Respostas

25/08/2004

Oscar Candido

Colega, não sei se é isso mesmo que vc quer, mas tente usar o segunte :
procedure TForm1.FormCreate(Sender: TObject);
begin
   if (Screen.Height = 600) and (Screen.Width = 800) then
     Form1.WindowState := wsMaximized
   else
     Form1.Position := poScreenCenter;
end;

Espero ter ajudao
Um Abraço


Responder Citar

25/08/2004

Mrcdlf

[quote:6b07234c69=´oscar candido´]Colega, não sei se é isso mesmo que vc quer, mas tente usar o segunte :
procedure TForm1.FormCreate(Sender: TObject);
begin
   if (Screen.Height = 600) and (Screen.Width = 800) then
     Form1.WindowState := wsMaximized
   else
     Form1.Position := poScreenCenter;
end;

Espero ter ajudao
Um Abraço[/quote:6b07234c69]


pois é, estava pensando que talvez pudesse haver outra forma... alguma configuração das propriedades coisa do tipo...

mais vou fazer dessa forma mesmo!!!!

valeu pela força!


Responder Citar