Fensterposition sowie -größe auf zweitem Monitor speichern und laden

[günni0]

Die Fensterposition und -größe zu speichern ist absolut kein Problem.

Jetzt wäre ich noch gerne in der Lage zu speichern und laden, auf welchem Monitor das Formular zuletzt war.
Ich habe schon ein bisschen mit Screen.Monitors[] rumgespielt aber das bringt mich nicht weiter, da ich weder laden noch speichern kann.

Mein Grundgedanke:
beim Speichern

Delphi-Quellcode:

X := Screen.MonitorFromWindow(FormHandle... )
showmessage( X.MonitorNum.ToString );

um den Monitor zu bekommen.
Aber wie lade ich das nun und zeige das Formular auch auf diesem Monitor wieder an?

Solche Sachen wie "MonitorLinks.Breite + ....." und sowas kann man ja total vergessen. Denn nicht jeder hat die Monitore nebeneinander.

[Zacherl]

Zitat:

Zitat von günni0 (Beitrag 1399826)

Solche Sachen wie "MonitorLinks.Breite + ....." und sowas kann man ja total vergessen. Denn nicht jeder hat die Monitore nebeneinander.

Mir wäre nicht bekannt, dass man eine Art "id" des Monitors abfragen kann. Der Desktop ist ein Bereich, der zusammengesetzt wird aus Höhe und Breite aller Monitore. Die Anordnung kann deshalb ja z.B. in der Windows Systemsteuerung explizit angegeben werden. Wenn sich hier etwas ändert wären gespeicherte Positionen natürlich hinfällig (aber mal ehrlich, wie oft kommt sowas vor?). Zut Not kann man hier zumindest noch testen, ob die Dimensionen des kompletten Desktops sich geändert haben und ggfls. die gesicherten Fensterpositionen verwerfen.

Delphi-Quellcode:

MonitorFromWindow

arbeitet auch mit der Fensterposition bzw. genauer gesagt "The MonitorFromWindow function retrieves a handle to the display monitor that has the largest area of intersection with the bounding rectangle of a specified window".

[günni0]

Das heißt ich speichere aktuell falsch. Aktuell speichere ich einfach nur X und Y vom "Monitor" und achte gar nicht drauf welcher.

Aktuell übergebe ich meiner Funktion schlicht

Delphi-Quellcode:

aForm.Width, aForm.Height, aForm.Left, aForm.Top

und speichere das in 4 ini idents ab.
Wie müsste man das denn abspeichern, um MultiMonitor-Support zu gewährleisten?

[Zacherl]

Zitat:

Zitat von günni0 (Beitrag 1399828)

Das heißt ich speichere aktuell falsch. Aktuell speichere ich einfach nur X und Y vom "Monitor" und achte gar nicht drauf welcher.

Ich würde einfach X und Y vom Fenster speichern. Diese Koordinaten beziehen sich eh auf den kompletten Desktop. Also links vom primären Bildschirm sind die (X-)Koordinaten negativ.

Edit:
Du hast grade editiert. So wie du es machst, sollte es "automatisch" schon passen :)

[günni0]

Leider nicht. Ich speichere X, Y Höhe und Breite ganz normal.

Beim Laden gehe ich so vor

Delphi-Quellcode:

  _Screen := Screen.MonitorFromWindow(frmMain.Handle);
  
  if IniFrm.ValueExists('window_options', 'x') and IniFrm.ValueExists('window_options', 'y') then
   begin
    x := IniFrm.ReadInteger('window_options', 'x', (_Screen.Width - frmOptions.Width) div 2);
    y := IniFrm.ReadInteger('window_options', 'y', (_Screen.Height - frmOptions.Height) div 2);
   end
  else
   begin
    x := (_Screen.Width - frmOptions.Width) div 2;
    y := (_Screen.Height - frmOptions.Height) div 2;
   end;

  frmOptions.Left := x;
  frmOptions.Top := y;

[Zacherl]

Lass das ganze Gedöhns mit dem Screen einfach weg :P Einfach nur X, Y, Width, Height speichern und 1 zu 1 wieder laden. Auf dem richtigen Monitor landet das Fenster dann automatisch.

[günni0]

Zitat:

Einfach nur X, Y, Width, Height speichern und 1 zu 1 wieder laden

mache ich doch :P

Das Screens ist nur für die Ini-Default-Werte da, falls beim Auslesen was nicht klappt.

[Zacherl]

Zitat:

Zitat von günni0 (Beitrag 1399834)

Das Screens ist nur für die Ini-Default-Werte da, falls beim Auslesen was nicht klappt.

Mein Fehler, falsch gelesen.

Was genau funktioniert beim Laden denn nicht? Die Positionen sind falsch?

[haentschman]

Zitat:

Einfach nur X, Y, Width, Height speichern

...und X und Y durch Form.Top und Form.Left ersetzen. :zwinker:
Hinweis:
Das Laden/Setzen der Werte im OnShow.

[günni0]

Die Position vom Hauptfenster wird wohl korrekt geschrieben (rechter Monitor).

Delphi-Quellcode:

[window_main]
x=2139
y=196

Beim Laden landet es aber auf Monitor 1 (also der linke)

Ich setze Top und Left im OnCreate-Event.