PureBasic

Code : Tout sélectionner

Procedure.b IsMouseOverGadget(gadget); #True, when the mouse is over the Gadget
  GetWindowRect_(GadgetID(gadget),GadgetRect.RECT)
  GetCursorPos_(Mouse.POINT)
  If Mouse\x>=GadgetRect\left And Mouse\x<GadgetRect\right And Mouse\y>=GadgetRect\top And Mouse\y<GadgetRect\bottom
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure


	
	If OpenWindow(0,0,0,400,400,"0",#PB_Window_SystemMenu)
	  If CreateGadgetList(WindowID(0))
	  	WebGadget(100,0,0,300,300,"www.google.fr")
	  EndIf

	  Repeat
	  	ev = WaitWindowEvent()
	  	
	  	If IsMouseOverGadget(100)
				If ev = #WM_MBUTTONUP
					Debug "Bouton milieu relaché"
				EndIf
				If ev = #WM_RBUTTONUP
					Debug "Bouton droit relaché"
				EndIf
				
			EndIf
				  
	  Until ev = #PB_Event_CloseWindow
	EndIf

Code : Tout sélectionner

<script language="javascript">
  function StopRightClick() {
    if (event.button==2) {
      alert('Right Click interdit !')
    }
  }
document.onmousedown=StopRightClick
</script>

Code : Tout sélectionner

  OpenWindow(0, 337, 13, 967, 863, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  CreateGadgetList(WindowID(0))
  WebGadget(1, 10, 10, 940, 780, "www.google.fr")
  Repeat 
    Event = WaitWindowEvent()
    If Event <> 32770  And Event <> 275 And Event <> 280 
      Debug Event
      If Event =516 Or Event = 519
        If Event=516 : Titre.s="Clic droit Désactivé" :EndIf
        If Event=519 : Titre.s="Clic Central Désactivé" :EndIf
        MessageRequester(Titre,"Même pas en rêve") 
      EndIf
    EndIf
  Until Event = #PB_Event_CloseWindow
  End