EnableExplicit

Global gOldEditProc

Procedure editproc(hWnd, uMsg, wParam, lParam)
  Protected result
  Select uMsg
    Case #WM_RBUTTONUP
      DisplayPopupMenu(1,WindowID(0))
      result = 0
    Default
      result = CallWindowProc_(gOldEditProc, hWnd, uMsg, wParam, lParam)
  EndSelect
  ProcedureReturn result
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  StringGadget(1,10,10,200,20,"Klicke rechte Maustaste...",0)
  
  If CreatePopupImageMenu(1,#PB_Menu_ModernLook)
    MenuItem(1,"MenuItem",0)
  EndIf
 
  gOldEditProc = SetWindowLongPtr_(GadgetID(1), #GWL_WNDPROC, @editproc())
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf