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 ******************* |
de quel version de vfp tu nous jases