resolu��o do monitor.....

Question

Ai Galera to precisando muito de saber com o fa�o para capturar a resolu��o do monitor do meu usuario para poder ajustar meus forms. Quem puder me ajudar fico bastante agradecido......
Faleu.....

Marcio.theis · Answer

Voc� pode criar uma fun��o, onde que depois bastaria passar o form para a fun��o...

procedure TfrmPrincipal.CentralizaForm(form: TForm);
var
   Larg, Alt: integer;
begin
Larg:=Round((Screen.WorkAreaWidth - form.Width) / 2) + Screen.WorkAreaLeft;
Alt:=Round((Screen.WorkAreaHeight - form.Height) / 2) + Screen.WorkAreaTop;
form.Left:=Larg;
form.Top:=Alt;
end;

Lemaf · Answer

Meu caro amigo desculpe a minha ignorancia mas n�o entendi como posso fazer isto!!!
Vc poderia ser mais passo a passo pois estou iniciando na program�ao delphi e ainda tenho algumas dificuldades...
se puder me ajudar ....

Marcio.theis · Answer

Voc� poderia colocar esta fun��o no seu formul�rio principal, tendo assim ela somente declarada uma �nica vez, depois nos outros forms, basta vc colocar na propriedade OnShow do form a chamada a esta fun��o, como por exemplo: frmPrincipal.CentralizaForm(frmTeste);

Lemaf · Answer

Mas como eu declaro esta fun�ao? Lembrando que eu preciso saber a resolu�ao do monitor dos meus clientes para realinhar o top e left dos meus forms........

Marcio.theis · Answer

Voc� declara como qualquer outra......