[Delphi 10] Basculer d'un écran à l'autre, en multi-écran

Sous windows, est-il possible de basculer d'un écran à l'autre, en multi-écran ?

Avec la VCL, ça peut se faire avec Monitor.MonitorNum, Screen.MonitorCount, et un MoveWindow(Handle, ...), mais en FMX ?
Ces objets et propriétés sont définit dans Vcl.Forms et je n'ai pas trouvé d'équivalement dans FMX.Forms.
Une idée ?

:hola:

Citation:

---

Envoyé par Lung

Sous windows, est-il possible de basculer d'un écran à l'autre, en multi-écran ?

Avec la VCL, ça peut se faire avec Monitor.MonitorNum, Screen.MonitorCount, et un MoveWindow(Handle, ...), mais en FMX ?
Ces objets et propriétés sont définit dans Vcl.Forms et je n'ai pas trouvé d'équivalement dans FMX.Forms.
Une idée ?

:hola:

---

Bonjour,

il faut jeter un oeil à : Screen.DisplayCount et Screen.Displays

:king: Bien vu !
Ça marche !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var nIndex: Integer; EcranRect: TRect; begin if Screen.DisplayFromForm(Self).Index < Pred(Screen.DisplayCount) then nIndex := Screen.DisplayFromForm(Self).Index + 1 else nIndex := 0;   EcranRect := Screen.Displays[nIndex].WorkareaRect; Left := (EcranRect.Left + _nInitPos.Left); Top := (EcranRect.Top + _nInitPos.Top);   Caption := IntToStr(Screen.DisplayFromForm(Self).Index);

---

:merci: