XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Maustasten im Dialogfenster 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