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
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.
Ensuite nous comparons les coordonnées courantes du pointeur de la souris avec les coordonnées du bouton.
Autrement dit, nous regardons si le 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 :
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