Discussion :

[r038tmp5]

Bonjour,

Sur un poste Windows avec 2 écrans, j'ai un soucis avec les méthodes TForm.Monitor ou TScreen.MonitorFromWindow, qui me retourne toujours l'écran 1.

Je lance l'application sur l'écran 1, je déplace l'application sur l'écran 2, j'ouvre une nouvelle fenêtre, et les méthodes précédentes retournent toujours écran 1.

Si je fais un test avec TScreen.MonitorCount et TScreen.Monitors, il trouve bien les 2 écrans avec les bonnes configurations.

Avez-vous une idée? Merci

[Andnotor]

La numérotation est à base 0. Le principal à l'indice 0 et le deuxième 1.

[r038tmp5]

J'aurais dus utiliser les noms "écran principal" et "écran secondaire" à la place de "écran 1" et "écran 2"

Pour mes essais je ne me suis pas fier aux indices, mais aux handles des écrans

Code :

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

1
2
3
4
 
st := '';
for i := 0 to Screen.MonitorCount-1 do
  st := Format('%0:s (index: %1:d)(handle: %2:d)', [st, i, Screen.Monitors[i].Handle]);

Quelque soit l'écran sur lequel on utilise l'application, il retourne toujours le handle de "écran principal"

[Andnotor]

Ceci fonctionne parfaitement :

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Format('Index: %d, Handle: %d', [Monitor.MonitorNum, Monitor.Handle]);
end;

[r038tmp5]

Oui...mais pas dans l'évènement FormCreate, là ou j'avais placé mon test...

Je ne comprends pas trop pourquoi, mais je vais en tenir compte. Merci