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.