Fenster auf bestimmten Monitor öffnen

[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 FScreen := Screen.MonitorFromPoint(P); um, damit ich in 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.