XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Maustasten en el Dialogfenster abfragen
Def @GetAsyncKeyState(1) !User32,GetAsyncKeyState
declarar Dialog&,Text&
Ventana 0,0-620,410
Título de la ventana Ventana principal
@GetAsyncKeyState(1) Zurücksetzen
@GetAsyncKeyState(2) Zurücksetzen
Dialog& = @Crear(Diálogo,%HWnd,Dialogfenster,30,60,200,200)
@Crear(Button,Dialog&,Testbutton,30,100,100,20)
LET TEXT& = @Crear(Texto, Dialog&, , 10, 10, 200, 20)

Mientras que 1

    waitinputex

    IF @GetAsyncKeyState(1)<>0

        Settext Text&,Linke Botón del ratón

    endif

    IF @GetAsyncKeyState(2)<>0

        Settext Text&,Rechte Botón del ratón

    endif

wend

end

Proc WaitInputEx Erweitertes Waitinput para Dialoge de AH

    Declarar AHWait_Counter%
    Claro AHWait_Counter%

    Mientras que AHWait_Counter%<25

        inc AHWait_Counter%

    wend

    @Externo(USER32,MsgWaitForMultipleObjects,0,0,0,-1,$1 | $4 | $10)
    Claro AHWait_Counter%

    Mientras que AHWait_Counter%<25

        inc AHWait_Counter%

    wend

ENDPROC