Code à insérer dans le code survol de la souris du champ de saisie (le champ de saisie se nomme ‘SAISIE1’)

LParam     est un entier système = _EVE.lParam
LOC_Res   est un entier système
LOC_Mot   est une chaîne
LOC_Pos1  est un entier
LOC_Pos2   est un entier 

LOC_Res     = SendMessage(Handle(Saisie1..Nom),215,0,LParam)
LOC_Pos1   = Position(Saisie1, » « ,LoWord(LOC_Res),DepuisFin)+1
LOC_Pos2   = Position(Saisie1, » « ,LOC_Pos1)-1

SI LOC_Pos2 = -1 ALORS LOC_Pos2 = Taille(Saisie1)

LOC_Mot = Saisie1[[LOC_Pos1 A LOC_Pos2]]

Trace(LOC_Mot)