ON_RIGHT_CLICK facile!

' Panoramic 0.9.27

'   ==============================================================
'   =  Title  : ON_RIGHT_CLICK
'   =
'   =  Author : Silverman
'   =
'   =  Date   : Mars 2017
'   =
'   =  Version: 1.0
'   ==============================================================
'   Comments  : Simuler facilement ON_RIGHT_CLICK
'             :
'   ==============================================================


label right_c1,right_c2,right_c3
label form0

dim i,j,k

' 3 panels à cliquer
for i=11 to 13
   k=k+1
   k=i
   panel k
   caption k,"("+str$(i)+") clic droit sur moi" : top k,j : left k,300
   j=j+150
next i
' 'on_mouse_up' pour déclencher le clic droit car il réagit à n'importe quel bouton de la souris
on_mouse_up 11,right_c1
on_mouse_up 12,right_c2
on_mouse_up 13,right_c3
on_mouse_up 0,form0


END
right_c1:
  if mouse_right_up(11)=1   :' seulement le bouton droit de la souris
     caption 0,"Objet n° 11 cliqué   "
  end_if
return

right_c2:
  if mouse_right_up(12)=1   :' seulement le bouton droit de la souris
     caption 0,"Objet n° 12 cliqué   "
  end_if
return

right_c3:
  if mouse_right_up(13)=1   :' seulement le bouton droit de la souris
     caption 0,"Objet n° 13 cliqué   "
  end_if
return

form0:
  if mouse_right_up(0)=1   :' seulement le bouton droit de la souris
     caption 0,"Form 0 cliqué   "
  end_if
return