(Dynamisch erzeugte) Form immer im Vordergrund dargestellen

[Viktorii]

Das funktioniert leider nicht

So hab ich es versucht:

Delphi-Quellcode:

    FPasswordForm := TPasswordForm.Create(self);
    SetWindowPos(FPasswordForm.Handle,HWND_TOPMOST,Left, Top, Width, Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    ret := FPasswordForm.ShowModal;

Was (interessanterweise) teilweise funktioniert, ist der code den ich unter #1 gepostet habe und wenn ich in der Form folgendes mache:

Delphi-Quellcode:

procedure TPasswordForm.FormActivate(Sender: TObject);
begin
  Position := poScreenCenter;
end;

Wenn ich allerdings folgendes hinzufüge bzw. den Fokus zu Laufzeit mit der Maus auf das Edit setzte, bleibt das Fenster nicht mehr im Vordergrund

Delphi-Quellcode:

procedure TPasswordForm.FormShow(Sender: TObject);
begin
  EditPassword.SetFocus;
end;