fsStayOnTop

[Nisbo]

Moin Moin,

ich versuche gerade zur Laufzeit das aktuelle Fenster auf "TOP" zu setzen nur leider funktioniert das nicht

Delphi-Quellcode:

           if  CheckBox3.Checked = true then
               begin
                  // Form7.FormStyle := fsStayOnTop;
                  FormStyle := fsStayOnTop;  
               end;
               
           if  CheckBox3.Checked = false then
               begin
                  FormStyle := fsNormal;
               end;

also habe auch schon die momentan auskommentierte Zeile versucht
mit

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE); funktoniert zumindest das "TOP" machen, nur wie macht man das in diesem fall ganze wieder rückgängig ?