Delphi - Formular auf dem linken Monitor öffnen

Question

Ich möchte, dass meine Anwendung immer auf dem linken Monitor startet (falls mehr als 1 angeschlossen sind).

Wie kann das gemacht werden? Wie erkennt man die linke Monitornummer?

Vielen Dank für Ihre Hilfe!

Answer 1

Wir verwenden dieses Codefragment:

if Screen.MonitorCount > 1 then 
begin 
    MonList := TList<TMonitor>.Create; 

    for I := 0 to Screen.MonitorCount - 1 do 
    MonList.Add(Screen.Monitors[I]); 

    // sort by screen.monitor.left coordinate 
    MonList.Sort(TComparer<TMonitor>.Construct(
    function(const L, R: TMonitor): Integer 
    begin 
     Result := L.Left - R.Left; 
    end)); 

    _MonitorNum := TMonitor(MonList[0]).MonitorNum; 

    // free the list 
    MonList.Destroy; 
end; 

Dann _MonitorNum hält die Anzahl des am weitesten links stehenden Monitor.