XProfan

Deutsch

Beschreibung:

SetCapture leitet alle Eingaben der Maus eines Threads auf das angegebene Fenster um. Die Umleitung wird aufgehoben, wenn die API ReleaseCapture aufgerufen wird, oder ein Fenster eines anderen Threads den Focus erhält.

Deklaration:

DEF @SetCapture(1) !USER32,SetCapture

Parameter:

1.Parameter: Handle des Fensters, auf das die Mauseingaben umgeleitet werden sollen.

Rückgabewert:

Bei Erfolg das Handle des Fensters, auf das zuvor die Mauseingaben umgeleitet wurden. Existiert kein solches Fenster, wird 0 zurückgegeben. Bei einem Fehler wird 0 zurückgegeben.

Beispiele:

Kompilieren Markieren Separieren

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