in meinem Programm reagiert #WM_LBUTTONUP null.
Code: Alles auswählen
If event = #WM_LBUTTONUP : Debug event
......
EndIf : Debug event
Code: Alles auswählen
If event = #WM_LBUTTONUP : Debug event
......
EndIf : Debug event
Code: Alles auswählen
;PB 5.73 x86/x64
EnableExplicit
Procedure.i WindowCallback(hWnd.i,uMsg.i,wParam.i,lParam.i)
Select uMsg
Case #WM_LBUTTONDOWN
Debug 111
Case #WM_LBUTTONUP
Debug 222
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
Procedure.i Main()
If OpenWindow(0,0,0,320,200,#Null$,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
SetWindowCallback(@WindowCallback())
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver
CloseWindow(0)
EndIf
ProcedureReturn #Null
EndProcedure
Main()
End
Code: Alles auswählen
; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=735&highlight=
; Author: bobobo (updated for PB4.00 by blbltheworm)
; Date: 23. April 2003
; OS: Windows
; Demo: No
;Autor : bobobo
;-----------------------------------------
;Tastatur und Mausmessages in Fenstern OHNE directX
;dafür mit eventwParam und eventLParam (aber nur zur Anzeige für ganz Neugierige)
;soweit ich weiß wird EventwParam und EventlParam irgendwann nicht mehr unterstützt
;bis dahin gilt:
;Solange die Maus im Fensterchen ist gibt es bei Bewegung derselben
;diverse Mausmessages .. Und .. Bei aktivem Fenster und Tastaturereignissen
;gibt's Tastaturmessages (Taste runter und Tastehoch u.s.w.)
;ömm ja .. Debug aktivieren !!
OpenWindow(1,0,0,200,100,"Event Test",#PB_Window_SystemMenu |#PB_Window_ScreenCentered)
ButtonGadget(1, 0, 0, 80, 20, "Play")
ButtonGadget(2, 90, 0, 80, 20, "Stop")
DisableGadget(2,1)
Debug "Bitte drücken sie eine beliebige Taste!"+Str(rr)
GetCursorPos_(st.POINT)
Debug st\x
Debug st\y
Repeat
Event=WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
Select EventGadget()
Case 1 ; Play
DisableGadget(2,0) ; Enable the 'Stop' gadget
DisableGadget(1,1) ; Disable the 'Play' Gadget
Case 2 ; Stop
DisableGadget(1,0) ; Enable the 'Play' gadget
DisableGadget(2,1) ; Disable the 'Stop' Gadget
EndSelect
Case #WM_MOUSEWHEEL
If (EventwParam() >> 16) & $8000
Debug "Down"
Else
Debug "Up"
EndIf
Case #WM_MOUSEMOVE
Debug "#WM_MOUSEMOVEw " + Str(EventwParam())
Debug "#WM_MOUSEMOVEl " + StrF(EventlParam())
Case #WM_LBUTTONDBLCLK
Debug "#WM_LBUTTONDBLCLK " + Str(EventwParam())
Debug "#WM_LBUTTONDBLCLK " + Str(EventlParam())
Case #WM_LBUTTONDOWN
Debug "#WM_LBUTTONDOWN " + Str(EventwParam())
Debug "#WM_LBUTTONDOWN " + Str(EventlParam())
Case #WM_LBUTTONUP
Debug "#WM_LBUTTONUP " + Str(EventwParam())
Debug "#WM_LBUTTONUP " + Str(EventlParam())
Case #WM_RBUTTONDOWN
Debug "#WM_RBUTTONDOWN " + Str(EventwParam())
Debug "#WM_RBUTTONDOWN " + Str(EventlParam())
Case #WM_RBUTTONUP
Debug "#WM_RBUTTONUP" + Str(EventwParam())
Debug "#WM_RBUTTONUP" + Str(EventlParam())
Case #WM_MBUTTONDBLCLK
Debug "#WM_MBUTTONDBLCLK " + Str(EventwParam())
Debug "#WM_MBUTTONDBLCLK " + Str(EventlParam())
Case #WM_MBUTTONDOWN
Debug "#WM_MBUTTONDOWN " + Str(EventwParam())
Debug "#WM_MBUTTONDOWN " + Str(EventlParam())
Case #WM_MBUTTONUP
Debug "#WM_MBUTTONUP " + Str(EventwParam())
Debug "#WM_MBUTTONUP " + Str(EventlParam())
Case #WM_NCMOUSEMOVE
Debug "#WM_NCMOUSEMOVE " + Str(EventwParam())
Debug "#WM_NCMOUSEMOVE " + Str(EventlParam())
Case #WM_NCLBUTTONDBLCLK
Debug "#WM_NCLBUTTONDBLCLK " + Str(EventwParam())
Debug "#WM_NCLBUTTONDBLCLK " + Str(EventlParam())
Case #WM_ACTIVATE
Debug "#WM_ACTIVATE " +Str(EventwParam())
Debug "#WM_ACTIVATE " +Str(EventlParam())
Case #WM_CHAR
Debug "#CHAR w: " + Chr(EventwParam())
Debug "#CHAR l: " + Str(EventlParam())
Case #WM_DEADCHAR
Debug "#DEADCHAR: " + Str(EventwParam())
Case #WM_KEYDOWN
Debug "#KEYDOWN(w): " + Str(EventwParam())
Debug "#KEYDOWN(l): " + Str(EventlParam())
Case #WM_KEYUP
Debug "#KEYUP(w): " + Str(EventwParam())
Debug "#KEYUP(l): " + Str(EventlParam())
Case #WM_SYSCHAR
Debug "#SYSCHAR: " + Str(EventwParam())
Case #WM_SYSDEADCHAR
Debug "#SYDEADSCHAR: " + Str(EventwParam())
Case #WM_SYSKEYDOWN
Debug "#SYSKEYDOWN: " + Str(EventwParam())
Case #WM_SYSKEYUP
Debug "#SYSKEYUP: " + Str(EventwParam())
Default
Debug Event
EndSelect
GetCursorPos_(st.POINT)
Debug st\x
Debug st\y
Debug "-----------------"
ForEver
End
Kannst du mal einen zusammenhängenden Code, oder ein Video, etc. posten wo man dein Problem sieht.Re42 hat geschrieben: Es bleibt dabei, daß in dem Code #WM_LBUTTONUP nicht die Bohne abgefragt werden kann und ich werde das auch Purebasic melden. Sollen die doch endlich mal einen PB-eigenen Befehl zum Abfragen der wieder losgelassenen Maus einführen.