XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Maustasten im Dialogfenster abfragen
Def @GetAsyncKeyState(1) !User32,GetAsyncKeyState
declare Dialog&,Text&
Fenêtre 0,0-620,410
Titre de la fenêtre Hauptfenster
@GetAsyncKeyState(1) Zurücksetzen
@GetAsyncKeyState(2) Zurücksetzen
Dialog& = @Créer(Dialog,%HWnd,Dialogfenster,30,60,200,200)
@Créer(Button,Dialog&,Testbutton,30,100,100,20)
LET TEXT& = @Créer(Text, Dialog&, , 10, 10, 200, 20)

Tandis que 1

    waitinputex

    IF @GetAsyncKeyState(1)<>0

        Settext Text&,Linke Bouton de la souris

    endif

    IF @GetAsyncKeyState(2)<>0

        Settext Text&,Rechte Bouton de la souris

    endif

Wend

end

Proc WaitInputEx Erweitertes Waitinput pour Dialoge de AH

    Déclarer AHWait_Counter%
    Claire AHWait_Counter%

    Tandis que AHWait_Counter%<25

        inc AHWait_Counter%

    Wend

    @Externe(USER32,MsgWaitForMultipleObjects,0,0,0,-1,$1 | $4 | $10)
    Claire AHWait_Counter%

    Tandis que AHWait_Counter%<25

        inc AHWait_Counter%

    Wend

endproc