XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SetWindowPos
DEF SetWindowPosition(7) !USER32,SetWindowPos
Windowstyle 31
Windowtitle Fenster im Vordergrund
Window 0,0-640,400
DEclare HWND&,Vordergrund&,Hintergrund&
LET HWND&=%HWND
LET VORDERGRUND&=@Createbutton(%HWND,Always on top,10,100,150,30)
LET Hintergrund&=@Createbutton(%HWND,Not on TOP,10,150,150,30)

While @equ(0,0)

    waitinput

    IF @getfocus(VORDERGRUND&)

        @SetWindowPosition(Fensterhandle,Fensterplatz=HWND_TOPMOST,X-Position,Y-Position,Breite,Höhe,Flags=SWP_NOMOVE+SWP_NOSIZE+SWP_SHOWWINDOW)
        @SetWindowPosition(HWND&,-1,0,0,640,400,@add(2,@add(1,$40)))

    ELSEIF @getfocus(Hintergrund&)

        @SetWindowPosition(Fensterhandle,Fensterplatz=HWND_NOTOPMOST,X-Position,Y-Position,Breite,Höhe,Flags=SWP_NOMOVE+SWP_NOSIZE+SWP_SHOWWINDOW)
        @SetWindowPosition(HWND&,-2,0,0,640,400,@add(2,@add(1,$40)))

    endif

Wend