Simuler un clic souris avec la commande GENERER EVENEMENT

Support Technique 4D

Comment simuler un clic souris par l'utilisation de la commande GENERER EVENEMENT ? ♪

- Titre : Simuler un clic souris avec la commande GENERER EVENEMENT

- Auteur : Support Technique 4D

- Parution : 15 mai 2008

- Licence : Ce document est issu de https://www.developpez.com et reste la propriété exclusive de son auteur. La copie, modification et/ou distribution par quelque moyen que ce soit est soumise à l'obtention préalable de l'autorisation de l'auteur.

Sommaire

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 :

code 4D

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