Screen Problem

[TurboMagic]

Hallo,

ich versuche gerade meinem VCL Programm beizubringen zu erkennen wenn die gespeicherte
Bildschirmposition nicht mehr auf einem sichtbaren Bildschirm ist beim nächsten Start
das Fenster auf den sichtbaren Bildschirm zu verschieben. DIe Grundidee stammt auch hier
irgendwo aus dem Forum.

Betriebssystem ist Windows 11 und wenn ich mal alle Screens logge kommt das dabei raus,
obwohl das 2. Display (angeschlossen per USB-C -> VGA Adapter) in dem Moment gerade aus ist:

Code:

Screen: 0 / 0/0 / 1536/864
Screen: 1 / -1920/0 / 1920/1080

Mein Code (noch in D10.3.3):

Delphi-Quellcode:

  if (Screen.MonitorFromWindow(Application.MainForm.Handle, mdNull) = nil) and
     (Screen.MonitorCount > 0) then
  begin
    MyForm.Left := Screen.Monitors[0].Left;
    MyForm.Top  := Screen.Monitors[0].Top;
  end;

Hat irgend jemand eine Idee woran das liegen könnte?