Produit : 4D v11 SQL · Plateforme : Mac & Win


Pour simuler un clic souris avec la commande GENERER EVENEMENT, on crée d'abord un bouton avec les propriétés de coordonnées suivantes :

Gauche : 63
Haut : 127
Droite : 350
Bas : 323
Largeur : 287
Hauteur : 196

Image non disponible

En utilisant la commande POSITION SOURIS (sourisX;sourisY;boutonSouris), nous récupérons les coordonnées courantes de la souris et nous les stockons dans les variables sourisX et sourisY.

Dans la liste des propriétés du bouton, dans la section Evénements, il faut cocher l'événement "Sur début survol" et décocher tous les autres événements.

Image non disponible

Ensuite nous comparons les coordonnées courantes du pointeur de la souris avec les coordonnées du bouton. Autrement dit, nous regardons si la pointeur de la souris est au-dessus du bouton, et si c'est le cas nous exécutons la commande GENERER EVENEMENT qui ouvre une fenêtre montrant que l'événement a été déclenché.

La méthode objet du bouton :

code 4D
Sélectionnez

C_ENTIER LONG(sourisX;sourisY;boutonSouris)
mouseButton:=0

POSITION SOURIS(sourisX;sourisY;boutonSouris)
Si ((sourisX>63) & (sourisY<350))
   Si ((sourisY>127) & (sourisY<323))
      GENERER EVENEMENT(Bouton souris enfoncé ;0;Nombre de ticks;sourisX;sourisY;0)
      ALERTE("Bouton souris enfoncé")
   Fin de si
Fin de si