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?