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

[Zacherl]

Zitat von 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.

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

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

[Zacherl]

Zitat von günni0:

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?

[Jumpy]

Evtl. könnte man noch speichern, ob das Fenster maximiert ist usw.

[haentschman]

Zitat:

Einfach nur X, Y, Width, Height speichern

...und X und Y durch Form.Top und Form.Left ersetzen.
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.

[Zacherl]

Also ich hab mir grade mal ein Testprogramm geschrieben und da funktioniert alles wie es soll. Muss ein Problem bei der Verarbeitung (Ini, etc.) vorliegen:

Delphi-Quellcode:

uses
  Clipbrd;

procedure TForm2.Button1Click(Sender: TObject);
var
  S: String;
begin
  S := Left.ToString + ',' + Top.ToString + ',' + Width.ToString + ',' + Height.ToString;
  Clipboard.AsText := S;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  A: TArray<String>;
begin
  A := Clipboard.AsText.Split([',']);
  Left := A[0].ToInteger;
  Top := A[1].ToInteger;
  Width := A[2].ToInteger;
  Height := A[3].ToInteger;
end;

Edit:
Der Hinweis von haentschman bezüglich OnShow ist wichtig, wenn es sich um das (aktuelle) eigene Fenster handelt.

[Uwe Raabe]

Zitat von günni0:

Ich setze Top und Left im OnCreate-Event.

Dann setz dort doch auch noch Position := poDesigned - vielleicht steht da ja noch was anderes drin.