Discussion :

[portu]

Bonjour,
Un client m'a demander de gérer le mutliscreen, et aimerait que le logiciel s'ouvre sur son second écran lorsque celui-ci est connecté à son portable. Si il ne l'est pas, le logiciel s'exécute sur le premier écran.

J'ai un peu regardé et rien de bien concluant. Quelqu'un à déja travaillé sur ca je suppose ?

Merci d'avance.

[Guile]

Il me semble avoir fait quelque chose qui ressemblait à ça :

Dans le OnCreate de ta page principale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
if Screen.MonitorCount = 1 then
  Left:= 0
else begin
  if Screen.Monitors[0].Primary then iEcranPrincipal:= 0
  else if Screen.Monitors[1].Primary then iEcranPrincipal:= 1;
  left:= Screen.Monitors[iEcranPrincipal].Width;
end;

iEcranPrincipal : une variable integer

[portu]

En effet, un peu mal foutu mais bon.
Mal foutu dans le sens où l'on ne peut plus faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 MaFenetre.Left := 10;

Ceci deviendra

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 MaFenetre.Left := Screen.Monitors[x].WorkareaRect.Left+10;

Mais bon, on fait avec.

Merci pour tout.

[portu]

En plus WorkAreaRect.Left du moniteur principal commence est 0 et peut importe que se soit le premier ou second moniteur.

Exemple, on a deux écrans.

Ecran 1 et Ecran 2.
Ecran 2 est moniteur principal

Une fiche qui est alignée sur le bord gauche de l'écran 2 à sa propriété Left à 0. Si elle est alignée sur le bord gauche de l'écran 1, sa propriété Left = 0-Screen.Monitors[x].width. Donc, valeur négative....

faut encore le savoir ca.