Doppelklick auf Button?

[Kaeru Gaman]

das war nich gebrüllt, nur groß geschrieben, damit es auf keinen fall übersehen wird...

[Fluid Byte]

Ich mag keine Libs also hier nochmal ohne PBOSL:

Code: Alles auswählen

OpenWindow(0,0,0,220,220,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(0,10,10,200,200,"RAPE ME PLEASE!")

Global lpPrevFunc.l

Procedure ChildSubProc(hWnd.l,uMsg.l,wParam.l,lParam.l)
    Select uMsg
        Case #WM_LBUTTONDOWN   : Debug "LEFT MOUSE BUTTON"
        Case #WM_RBUTTONDOWN   : Debug "RIGHT MOUSE BUTTON"
        Case #WM_LBUTTONDBLCLK : Debug "LEFT DOUBLE CLICK" 
        Case #WM_RBUTTONDBLCLK : Debug "RIGHT DOUBLE CLICK"        
    EndSelect
     
    ProcedureReturn CallWindowProc_(lpPrevFunc,hWnd,uMsg,wParam,lParam)
EndProcedure

lpPrevFunc = SetWindowLong_(GadgetID(0),#GWL_WNDPROC,@ChildSubProc())

While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend