TOPMOST für 2. Form funktioniert nicht mehr, nachdem das Fenster verschoben wurde

**juergen**

Hallo,

ich bekomme es einfach nicht hin. Vllt. kann mir hier jemand noch einen wertvollen Rat geben.
Ich möchte eine kleine Form (Music-Miniplayer) *immer* über allen Fenstern unten rechts über der Uhr anzeigen.

Die 2. Form (Music-Miniplayer) hat im Formular-Designer Formstyle := fsStayOnTop stehen.
Diese 2. Form wird von der Hauptform über einen Button ShowModal aufgerufen und ich minimiere dann die Hauptform und setze diese auch noch auf Hide.
Das klappt! Mein Music-Miniplayer wird über allen "normalen" Fenstern angezeigt. Sobald ich aber diese Form an eine andere Stelle bewege oder die Form den Focus erhält (z.B. durch einen KLick auf einen Button), ist diese Form hinter allen anderen Programm-Fenstern und hat das TOPMOST anscheinend "verloren".

Anfangs hatte ich einfach nur im OnShow der 2. Form SetWindowPos gesetzt. Dann habe ich das weiter "ausgebaut".

Ich verwende nach etlichen Versuchen nun folgenden Code:

zusammenfalten · markieren

Delphi-Quellcode:

			PROCEDURE Tfrm_MiniPlayer.Set_frm_MiniPlayer_TOPMOST( OnTop: Boolean );

BEGIN

  IF (OnTop) THEN

  BEGIN

    frm_MiniPlayer.FormStyle := fsStayOnTop;

    SetWindowPos( g_Handle_from_MiniPlayer,

      HWND_TOPMOST,

      0,

      0,

      0,

      0,

      SWP_NOREPOSITION OR SWP_NOSIZE );

    IF RedrawWindow( g_Handle_from_MiniPlayer, NIL, 0, RDW_VALIDATE ) THEN

    BEGIN

      SetWindowPos( g_Handle_from_MiniPlayer,

        HWND_TOPMOST,

        0,

        0,

        0,

        0,

        SWP_SHOWWINDOW );

    END;

  END

  ELSE BEGIN

    frm_MiniPlayer.FormStyle := fsNormal;

    SetWindowPos( g_Handle_from_MiniPlayer,

      HWND_NOTOPMOST,

      0,

      0,

      0,

      0,

      SWP_NOREPOSITION OR SWP_NOSIZE );

  END;

END;

Im OnMouseMove-Event steht

markieren

Delphi-Quellcode:

			...

 IF ssLeft IN Shift THEN

  BEGIN

    Set_frm_MiniPlayer_TOPMOST ( False );

...

Im OnMouseUp-Event und OnShow-Event steht

Set_frm_MiniPlayer_TOPMOST ( True );

Das Handle (g_Handle_from_MiniPlayer) vom Music-Miniplayer ist korrekt!

Hat hier noch jemand eine Idee warum das Fenster, nachdem es einmal verschoben wurde, nicht mehr TOPMOST angezeigt wird?

Vielen Dank schon mal vorab!

Edit 1: Es reicht schon, wenn der Musicplayer einmal den Focus erhalten hat, wenn man also z.B. einen Button gedrückt hat. Dann ist das TOPMOST-Verhalten auch weg.
Edit 2: Ich weiß nicht ob es relevant ist, ich nutze Windows 11.

TOPMOST für 2. Form funktioniert nicht mehr, nachdem das Fenster verschoben wurde

TOPMOST für 2. Form funktioniert nicht mehr, nachdem das Fenster verschoben wurde

Forumregeln