Verfasst: 31.05.2007 16:11
das war nich gebrüllt, nur groß geschrieben, damit es auf keinen fall übersehen wird... 
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