Moin.
Die Ausgangssituation ist wie folgt:
Ein kleines Programm wird gestartet und das Start-Fenster auf einen anderen Monitor verschoben.
Dort wird nun über einen Button ein weiteres Fenster geöffnet. Dieses wird zur Laufzeit erzeugt.
Die Einstellungen
für DefaultMonitor ist dmActiveForm und
für Position poScreenCenter.

Beim ersten Test wird das Fenster auf dem Monitor des ersten Fensters geöffnet. Wie eigentlich auch zu erwarten ist.

Zweiter Test:
Das Ereignis OnShow des zweiten Fensters wird mit Inhalt gefüllt. Nichts weiter als ein einfaches Edit1.SetFocus. Aber das Ereignis kann auch nur aus einer Kommentarzeile bestehen. Das spielt keine Rolle.
Ergebnis:
Das Fenster wir auf dem Primary-Monitor geöffnet, statt auf dem Monitor des ersten Fensters.

Ist das normal oder ein Bug?
Oder mache ich einen Fehler und muss noch irgendwo etwas einstellen?

Schon versucht für das Property "Position" des zweiten Fensters "poOwnerFormCenter" oder "poMainFormCenter" zu verwenden?

Ups, ganz vergessen zu erwähnen.
Ja, das habe ich bereits getestet und macht auch das, was es soll.
Allerdings müsste ich dem Fall die Zentrierung auf dem Monitor selbst steuern, da sich die beiden Einstellungen nach der Position der Owner-Form, bzw. der Main-Form richten.

Nach einigen Tests habe ich folgendes festgestellt:
Sobald man eine Aktion mit dem Fenster ausführt (in meinem Fall bei einem Element des Fensters den Focus setzen), wird es zum aktiven Fenster.
Das führt dann dazu, dass bei der Prüfung des DefaultMonitors (dmActiveForm) die "falsche" Form als Grundlage genommen wird.

Da ich aber eigentlich genau das Setzen des Focus benötige im OnShow, ist das natürlich ziemlich blöd.

Falls jemand eine elegante Idee hat, wie man das abfangen kann, ohne riesige Klimmzüge zu machen, wäre ich dankbar für Tipps.

Hmm..

vielleicht so:

markieren

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  tmpMonitor : TMonitor;
begin
  tmpMonitor := Screen.MonitorFromWindow(Application.MainForm.Handle);
  self.Left := tmpMonitor.WorkareaRect.Left + ((tmpMonitor.WorkareaRect.Right - tmpMonitor.WorkareaRect.Left - self.Width) div 2);
  self.Top := tmpMonitor.WorkareaRect.Top + ((tmpMonitor.WorkareaRect.Bottom - tmpMonitor.WorkareaRect.Top - self.Height) div 2);
end;

Das platziert im Unterfenster, dann wird dieses immer auf dem Monitor des Hauptfensters zentriert.

Was ist denn wenn du statt Edit1.SetFocus einfach ActiveControl := Edit1 setzt?