SetFocus will nicht ...

[himitsu]

Stimmt, direkt in OnCreate und OnShow geht es nicht, wenn man sich alle Fenster beim Start erstellen lässt,
da die andere Form natürlich erst nach der MainForm erstellt wird.

Auch die zweite Form selber erstellen, hat einen Haken, denn PopupMode funktioniert noch nicht, weil die MainForm erst als MainForm registriert wird, nachdem sie vollständig erstellt wurde. (wobei man das eventuell mal als Bug melden könnte)

Ich mach es mit mit sowas einfach nur noch einfach.

Delphi-Quellcode:

procedure TForm10.FormCreate(Sender: TObject);  // oder besser im OnShow
begin
  ...
  TThread.ForceQueue(nil, procedure  // es war echt schwachsinnig den Bugfix für Queue als ForceQueue zu bennen, anstatt es "richtig" zu machen.
    begin
      //Form11.Show;
      //SetFocus;
      ShowWindow(Form11.Handle, SW_SHOWNOACTIVATE);
      Form11.Visible := True;
    end);
end;