XProfan

Español

Descripción:

SetCapture leitet todos Eingaben ratón uno Hilos el angegebene Ventana en. El Umleitung se aufgehoben, si la API Captura de lanzamiento aufgerufen se, oder una Ventana uno otro Hilos el Focus erhält.

Deklaration:

DEF @SetCapture(1) !USER32,SetCapture

Parámetro:

1.Parámetro: Handle la ventana, el el Mauseingaben umgeleitet voluntad debería.

Rückgabewert:

En Erfolg el Handle la ventana, el zuvor el Mauseingaben umgeleitet fueron. Existiert kein solches Ventana, se 0 zurückgegeben. En una Fehler se 0 zurückgegeben.

Beispiele:

Kompilieren Marca Separación

DEF @SetCapture(1) !"USER32","SetCapture"
DEF @ReleaseCapture(0) !"USER32","ReleaseCapture"
DEF @GetCapture(0) !"USER32","GetCapture"
Windowstyle 31+512
Windowtitle "Maus in Fenster einfangen!"
Window 0,0-640,440
Declare Release&,Set&,Message&
LET SET&=@CreateButton(%HWND,"Mauseingabe einfangen",10,50,250,30)
LET Release&=@CreateButton(%HWND,"Maus freilassen",10,100,250,30)
LET Message&=@CreateButton(%HWND,"Message ausgeben",10,150,250,30)

Whilenot %MENUITEM=-2

    Drawtext 0,0,"Welches Fenster hat den Capture: "+@GetText$(@GetCapture())+@Space$(255)
    Waitinput

    IF @Getfocus(Set&)

        @SetCapture(Release&)

    ElseIF @Getfocus(Release&)

        @ReleaseCapture()
        @MessageBox("Maus wieder frei!","Release!",64)

    ElseIF @Getfocus(Message&)

        @MessageBox("Eingabe möglich","Test",64)

    endif

Wend