ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Mouseleave dans une form   



L'auteur

lotfi072003
Algérie Algérie
Membre Simple
# 0000000489
enregistré le 20/07/2005

http://www.oasis-gestion.com
abdelatif belguidoum
Fiche personnelle


Note des membres
pas de note

Contributions > 02 - SCX : Formulaires

Mouseleave dans une form
# 0000000921
ajouté le 23/08/2016 13:10:07 et modifié le 23/08/2016
consulté 8834 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description
ce que code on l'utliser a la place de MouseLeave qui n'existe pas dans la form fox MODEL
inserer un timer
interval =5000
coller le code suivante dans l'evenement du timer
LOCAL lnMouseObject, loMouseObject
lnMouseObject = AMOUSEOBJ(laMouseObject, 1)
IF lnMouseObject = 4
loMouseObject = laMouseObject[1]
* MESSAGEBOX("Le nom du control que tu a clicker et "+loMouseObject.Name,0,"msg",5)
loMouseObject = laMouseObject[2]
*MESSAGEBOX("Le nom de la form form qui contient le control que tu a clicker et "+ loMouseObject.Name,0,"md",5)
ENDIF
loMouseObject = laMouseObject[1]
IF loMouseObject.Name == "Screen"
MESSAGEBOX( loMouseObject.Name +"et hors la form mtn ",0,"cool",5) thisform.Release ENDIF
RETURN

************merci THE ONE *******************
Commentaires
le 07/09/2016, eddymaue a écrit :
de quel version de vfp tu nous jases

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3