Fenster auf bestimmten Monitor öffnen

[DieDolly]

Wie ist es möglich ein Fenster auf einem bestimmten Monitor zu öffnen?
Die absolute Position X und Y meines Hauptformulars wird beim Beenden gespeichert.

Vorher wird noch ein Ladefenster angezeigt. In der Prozedur, die vor dem Show des Ladefensters kommt, lade ich die Position wo das Hauptfenster das letzte Mal zu sehen war.
Mit diesen Koordinaten hole ich mir dann die Monitornummer:

Delphi-Quellcode:

FScreen := Screen.MonitorFromWindow(FormLoading.Handle);

P.X := Ini.ReadInteger('PosMainWindow', 'MainX', (FScreen.Width - FormLoading.Width) div 2);
P.Y := Ini.ReadInteger('PosMainWindow', 'MainY', (FScreen.Height - FormLoading.Height) div 2);

FScreen := Screen.MonitorFromPoint(P);

Damit bekomme ich dann in FScreen.MonitorNum die Nummer des Monitors heraus.

Wie platziere ich das Ladefenster nun mittig auf den Monitor FScreen.MonitorNum?

Das Folgende halte ich für falsch, weil der zweite Moitor (das Ladefenster wäre in meinem Fall auf Monitor #2) nicht zwingend rechts neben dem Hauptmonitor sein muss

Delphi-Quellcode:

FormLoading.Left := FScreen.Left + (FScreen.Width - FormLoading.Width) div 2;
FormLoading.Top := FScreen.Top + (FScreen.Height - FormLoading.Height) div 2;

[Uwe Raabe]

Mit

Delphi-Quellcode:

FScreen.BoundRect.CenterPoint

erhältst du die Mitte des Monitors. Die Werte für Left/Top des Ladefensters liegen jeweils um die halbe Breite/Höhe nach links/oben verschoben.

[himitsu]

Ist dir schonmal aufgefallen, dass TForm ein Property Monitor, sowie DefaultMonitor besitzt?

Und zusätzlich würde ich noch das Property Position empfehlen, z.B. mit poScreenCenter. (Achtung, poDesktopCenter ist nicht empfehlenswert)

[Delphi.Narium]

eventuell

Delphi-Quellcode:

Form1.MakeFullyVisible(Screen.Monitors[NummerDesMonitors]);

?

http://docwiki.embarcadero.com/Libra...keFullyVisible

[DieDolly]

Zitat:

Ist dir schonmal aufgefallen, dass TForm ein Property Monitor, sowie DefaultMonitor besitzt?

Was soll mir Monitor in TForm bringen? Monitor ist ReadOnly.

Ich möchte das Formular auf einen bestimmten Monitor platzieren, da bringt mir Monitor und DefaultMonitor in TForm nix.

[himitsu]

War das nicht beschreibbar?
OK, wäre natürlich blöd und dann müsste man doch die Desktop-Koordinaten selbst ausrechnen lassen.

Sekunde ...

[DieDolly]

Wie oben zu sehen habe ich es so gemacht.
Ich hole mir erst die letzten auf der Festplatte gespeicherten Koordinaten des Hauptfensters und speichere die in P.X und P.Y.
Diese rechne ich mit

Delphi-Quellcode:

FScreen := Screen.MonitorFromPoint(P);

um, damit ich in

Delphi-Quellcode:

FScreen

den passenden Monitor dafür habe.

Danach

Delphi-Quellcode:

FormLoading.Left := FScreen.BoundsRect.CenterPoint.X - (FScreen.Width div 2);
FormLoading.Top := FScreen.BoundsRect.CenterPoint.Y - (FScreen.Height div 2);

[Uwe Raabe]

Sollte das nicht besser so heißen:

Delphi-Quellcode:

FormLoading.Left := FScreen.BoundsRect.CenterPoint.X - (FormLoading.Width div 2);
FormLoading.Top := FScreen.BoundsRect.CenterPoint.Y - (FormLoading.Height div 2);

[DieDolly]

Mein Fehler. War nur ein Tippfehler hier im Forum.

[peterbelow]

Zitat:

Zitat von DieDolly (Beitrag 1533217)

Wie ist es möglich ein Fenster auf einem bestimmten Monitor zu öffnen?
Die absolute Position X und Y meines Hauptformulars wird beim Beenden gespeichert.

Vorher wird noch ein Ladefenster angezeigt. In der Prozedur, die vor dem Show des Ladefensters kommt, lade ich die Position wo das Hauptfenster das letzte Mal zu sehen war.
Mit diesen Koordinaten hole ich mir dann die Monitornummer:

Delphi-Quellcode:

FScreen := Screen.MonitorFromWindow(FormLoading.Handle);

P.X := Ini.ReadInteger('PosMainWindow', 'MainX', (FScreen.Width - FormLoading.Width) div 2);
P.Y := Ini.ReadInteger('PosMainWindow', 'MainY', (FScreen.Height - FormLoading.Height) div 2);

FScreen := Screen.MonitorFromPoint(P);

Damit bekomme ich dann in FScreen.MonitorNum die Nummer des Monitors heraus.

Wie platziere ich das Ladefenster nun mittig auf den Monitor FScreen.MonitorNum?

Das Folgende halte ich für falsch, weil der zweite Moitor (das Ladefenster wäre in meinem Fall auf Monitor #2) nicht zwingend rechts neben dem Hauptmonitor sein muss

Delphi-Quellcode:

FormLoading.Left := FScreen.Left + (FScreen.Width - FormLoading.Width) div 2;
FormLoading.Top := FScreen.Top + (FScreen.Height - FormLoading.Height) div 2;

Du machst Dir viel zu viel Arbeit. Setze die DefaultMonitor-Eigenschaft des Forms auf dmDesktop. Dann sind Left und Top relativ zum virtuellen Desktop und nicht mehr zu einem spezifischen Monitor.