Fórum aplicação delphi em computador com 2 monitores #367102
12/12/2008
0
Vitor Rubio
Curtir tópico
+ 1Posts
15/12/2008
Rodc
Verifique também ´Screen.Monitors´ que contem a relação de monitores instalados.
Gostei + 0
15/12/2008
Vitor Rubio
Screen.monitors me dá um vetor com todos os monitores do windows, mas como eu posso usa-los?
Gostei + 0
15/12/2008
Rodc
Gostei + 0
15/12/2008
Vitor Rubio
Se meu monitor da esquerda está na resolução 1024 x 768 é porque ele tem 1024 de width, certo?
se eu colocar o left da minha form como 1124 talvez ela abra na posição 100 do monitor da direita, que é o segundo, pois 1124-1024=100
vou testar isso assim que o monitor novo chegar.
Gostei + 0
15/12/2008
Rodc
Gostei + 0
15/12/2008
Vitor Rubio
Gostei + 0
15/12/2008
Rodc
Gostei + 0
15/12/2008
Vitor Rubio
procedure TfrmOle.FormActivate(Sender: TObject); begin if Screen.MonitorCount > 1 then begin Self.Left := Screen.Monitors[0].Width + (Screen.Monitors[1].Width div 2 - (Self.Width div 2)); Self.Top := (Screen.Monitors[1].Height div 2) - (Self.Height div 2); end; end;
assim ela centraliza no monitor 2 somente se tiver 2 monitores.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)