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

[Jumpy]

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

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

[günni0]

poDesigned war schon gesetzt.

Der Tipp mit OnShow hat geholfen. Tatsächlich darf man wohl keine Fensterpositionen im OnCreate setzen.

[TigerLilly]

Aber Achtung: Das Fenster wird dorthin verschoben, egal, ob es die Position/den Monitor auch gibt + wird damit uU unsichtbar.

Haben wir immer wieder, wenn Benutzer den zweiten Monitor nicht aufdrehen oder von einem anderen Rechner mit nur einem Monitor aus arbeiten. :-/

[günni0]

Da bietet das Forum eine einfache Lösung für

https://www.delphipraxis.net/1359914-post7.html

[markus5766h]

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

... müsste es nicht Position := poDefault sein - o.k. es funktioniert beides . . .

[markus5766h]

Zitat von günni0:

. . .Tatsächlich darf man wohl keine Fensterpositionen im OnCreate setzen.

doch, sollte auch im OnCreate funktionieren.

[Redeemer]

Bei mir funktioniert es auch in OnCreate .

Zitat von TigerLilly:

Aber Achtung: Das Fenster wird dorthin verschoben, egal, ob es die Position/den Monitor auch gibt + wird damit uU unsichtbar.

Haben wir immer wieder, wenn Benutzer den zweiten Monitor nicht aufdrehen oder von einem anderen Rechner mit nur einem Monitor aus arbeiten. :-/

Nach dem Laden der Position:

Delphi-Quellcode:

if Screen.MonitorFromWindow(Handle, mdNull) = nil then
Position := poScreenCenter;

[haentschman]

Moin...

Zitat:

Bei mir funktioniert es auch in OnCreate .

...eben, weil du nicht nicht Left und Top der Form setzt sondern nur poScreenCenter.