Fenster wird auf falschem Monitor geöffnet

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