XProfan

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'Dialogfenster: Maustasten abfragen
Def @GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
declare Dialog&,Text&
Window 0,0-620,410
WindowTitle "Hauptfenster"
@GetAsyncKeyState(1)'Zurücksetzen
@GetAsyncKeyState(2)'Zurücksetzen
Dialog& = @Create("Dialog",%HWnd,"Dialogfenster",30,60,200,200)
@Create("Button",Dialog&,"Testbutton",30,100,100,20)
LET TEXT& = @Create("Text", Dialog&, "", 10, 10, 200, 20)

While 1

    waitinputex

    IF @GetAsyncKeyState(1)<>0

        Settext Text&,"Linke Maustaste"

    endif

    IF @GetAsyncKeyState(2)<>0

        Settext Text&,"Rechte Maustaste"

    endif

wend

end

Proc WaitInputEx'Erweitertes Waitinput für Dialoge von AH

    Declare AHWait_Counter%
    Clear AHWait_Counter%

    While AHWait_Counter%<25

        inc AHWait_Counter%

    wend

    @External("USER32","MsgWaitForMultipleObjects",0,0,0,-1,$1 | $4 | $10)
    Clear AHWait_Counter%

    While AHWait_Counter%<25

        inc AHWait_Counter%

    wend

endproc