PureBasic

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 640, 480, "WebGadget Edit", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
  If CreateGadgetList(WindowID(0))
    
    WebGadget(0, 5, 5, 630, 340, "www.google.com")
    
    Repeat
      EventID = WaitWindowEvent()
    Until EventID=#WM_CLOSE    
  EndIf
EndIf

Code : Tout sélectionner

;
; Disable WebGadget RightClick [Using a hook]
;
Procedure DisableWebGadgetRightClick(nCode.l, wParam.l, lParam.l)
  Protected Cursor.POINT, WindowRect.RECT
  Shared WebGadgetHandle.l
  If wParam = #WM_RBUTTONDOWN
    If IsWindowVisible_(WebGadgetHandle)
      GetCursorPos_(@Cursor)
      GetWindowRect_(WebGadgetHandle, @WindowRect)
      If PtInRect_(@WindowRect, Cursor\x, Cursor\y)
        ProcedureReturn #True
      EndIf
    EndIf
  EndIf
  ProcedureReturn #False
EndProcedure
;
If OpenWindow(0,0,0,600,600, "Disable WebGadget right-click", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    WebGadgetHandle = WebGadget(1,0,0,600,400,"http://www.purebasic.com")
    ;
    hHook = SetWindowsHookEx_(#WH_MOUSE, @DisableWebGadgetRightClick(), GetModuleHandle_(0), GetWindowThreadProcessId_(WindowID(0),0))
    ;
    StringGadget(2, 0, 401, 600, 200, "Right-click still works here !")
  EndIf
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break  
    EndSelect
  ForEver
  UnhookWindowsHookEx_(hHook)
EndIf

Code : Tout sélectionner

;
; Disable WebGadget RightClick [Using a hook]
;
Global hHook.l

ProcedureDLL DisableWebGadgetRightClick(nCode, wParam, lParam)
  Static *MOUSESTRUCT.MOUSEHOOKSTRUCT,Name.s

  If nCode < 0
    ProcedureReturn CallNextHookEx_(hHook, nCode, wParam, lParam)
  EndIf
 
   *MOUSESTRUCT.MOUSEHOOKSTRUCT = lParam

   Select wParam
         Case #WM_RBUTTONUP,#WM_RBUTTONDOWN
            Name=Space(100)
            GetClassName_(*MOUSESTRUCT\hwnd,@Name,99)
            If Name="Internet Explorer_Server"
                ProcedureReturn 1
            EndIf 
   EndSelect
   
   ProcedureReturn CallNextHookEx_(hHook, nCode, wParam, lParam)
EndProcedure 
;
If OpenWindow(0,0,0,600,600, "Disable WebGadget right-click", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    WebGadgetHandle = WebGadget(1,0,0,600,400,"http://www.purebasic.com")
    ;
    hHook = SetWindowsHookEx_(#WH_MOUSE, @DisableWebGadgetRightClick(), GetModuleHandle_(0), GetWindowThreadProcessId_(WindowID(0),0))
    ;
    StringGadget(2, 0, 401, 600, 200, "Right-click still works here !")
  EndIf
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break 
    EndSelect
  ForEver
  UnhookWindowsHookEx_(hHook)
EndIf