XProfan

English

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Mouse buttons in the Dialog-Window inquire
Def @GetAsyncKeyState(1) !User32,GetAsyncKeyState
declare Dialog&,Text&
Window 0,0-620,410
Window Title Mainwindow
@GetAsyncKeyState(1) Zurücksetzen
@GetAsyncKeyState(2) Zurücksetzen
Dialog& = @Create(dialog,%HWnd,Dialog-Window,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&,left Mouse button

    endif

    IF @GetAsyncKeyState(2)<>0

        Settext Text&,rights Mouse button

    endif

wend

end

Proc WaitInputEx Erweitertes Waitinput for dialogs of 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