Beitrag, 16.07.2007 00:43: ;createCode() '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
Dies ist die Offlinevariante vom Thread [Maustasten im Dialogfenster abfragen].
©2006 XProfan.Com