Fenster wird auf falschem Monitor geöffnet

[Jasocul]

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?

[kretabiker]

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

[Jasocul]

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.

[Jasocul]

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.

[HolgerX]

Hmm..

vielleicht so:

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.

[Uwe Raabe]

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

[Jasocul]

@Uwe:
Stand auch auf meiner gedanklichen ToDo-Liste zur Prüfung.
Ergebnis: Das funktioniert. Als einfacher Workaround ist das erstmal OK.

@HolgerX:
Deinen Vorschlag werde ich auch noch verfolgen.
Allerdings möchte ich nicht selber rechnen, sondern lieber das Problem grundsätzlich angehen.
Zumal die Main-Form nicht zwingend die Form ist, die als Grundlage dienen soll. Basis sollte die bis dahin aktive Form sein. Das Handle ist auch leicht zu ermitteln, aber wie schon gesagt, will ich ja nicht selbst die Position berechnen (was natürlich trotzdem eine akzeptable Lösung sein kann).

[Jasocul]

Da die Form erst zur Laufzeit erzeugt wird, ist das erste SetFocus nicht notwendig.
Das Problem taucht erst auf, wenn die nächste Form angezeigt wird, da die vorherige Form mit Hide "versteckt" wird. Beim Rückspung kommt dann erst ein Show, das sich auswirken darf. Daher nutze ich jetzt folgendes Workaround:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  if Application.ActiveFormHandle = Handle then
  begin
    Edit1.SetFocus;
  end;
end;

Vorteile:
- Es macht klar, was die Problem-Ursache ist. Kommentar hilft da natürlich auch.
- Die Lösung von Uwe löst zwar das Problem mit SetFocus, aber es gibt sicher noch andere Dinge, die im OnShow zu den selben Problemen führen können. Obige Lösung behebt dann auch diese.