Is waiting mouse up

Is waiting mouse up : Boolean

Paramètre	Type		Description
Résultat	Boolean	←	Vrai si l'objet est en attente d'un relâchement souris, Faux sinon

Description

La commande Is waiting mouse up retourne Vrai si l'objet courant a été cliqué et que le bouton de la souris n'a pas été relâché, alors que la fenêtre contenant l'objet a le focus. Sinon la commande retourne Faux, en particulier si la fenêtre contenant l'objet a perdu le focus avant que le bouton soit relâché.

Cette commande doit être appelée dans le contexte de l'objet courant. Elle est destinée à être utilisée conjointement avec l'événement formulaire On Mouse Up, disponible pour les champs et variables Image. Elle permet de gérer par programmation les cas où l'utilisateur clique et commence à effectuer un glisser dans une zone image (champ ou variable), et que cette action est interrompue par un événement extérieur, comme par exemple l'affichage d'une boîte de dialogue d'alerte. Dans ce cas, l'état interne de l'objet peut être suspendu indéfiniment car il attend l'événement On Mouse Up qui n'arrive jamais. Pour éviter ce problème, vous devez protéger votre code de déplacement de souris à l'aide de la commande Is waiting mouse up qui vous assure de son exécution dans un contexte valide.

Exemple

Le code suivant peut être utilisé pour gérer le suivi de la souris dans un objet image :

  //Méthode objet de l'objet image
 var vLtracking : Integer //drapeau du mode Suivi
 Case of
    :(Form event code=On Clicked)
       If(Attente relâchement clic) // le bouton de la souris n'a pas été relâché
          vLtracking:=1 //nous sommes en mode Suivi
  //... Ecrivez ici le code d'initialisation pour la fonction de Suivi
       End if
    :(Form event code=On Mouse Move)
       If(vLtracking=1) //nous sommes en mode Suivi
          If(Not(Is waiting mouse up)) // on n'aura jamais le relâchement de la souris
             vLtracking:=0 // on stoppe le mode Suivi
  //... Ecrivez ici le code pour le traitement ou l'annulation de l'action de suivi
          Else //l'objet est toujours en attente du relâchement de la souris
  //... Ecrivez ici le code pour le suivi
          End if
       End if
    :(Form event code=Sur relâchement bouton) // le bouton de la souris a été relâché
  //... Ecrivez ici le code pour le suivi du relâchement souris
       vLtracking:=0 //Fin du suivi
 End case

Voir aussi

Form event code

Propriétés

Numéro de commande	1422
Thread safe	✗