Discussion :

[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 ?

[Thierry Laborde]

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 ?

Bonjour,

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

[Lung]

Bien vu !
Ça marche !

Code :

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

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);