Forum AtoutFox : Re: Comment savoir quel est l'objet actif dans 'un formulaire   

sam. 19 mars 2016, 19h15
ybenam
Algérie
atoutfox.public.association

Re: Comment savoir quel est l'objet actif dans 'un formulaire

utilise sys(1270) pour retourner une reference de l'objet
par ex.tu peux utilise dans MouseEnter
LPARAMETERS nButton, nShift, nXCoord, nYCoord
local xobj
xobj=sys(1270)
wait window xobj.name


tu peux utiliser bindevent pour tous les controles du form dans une boucle
en form.init
with thisform
for i=1 to .controlcount
try
bindevent(.controls(i),"mouseEnter",thisform,"my")  &&my peut être la method ci dessus valable pour tous les controles.
catch
endtry
endfor
endwith


-autre solution utilise bindevent pour n'importe quelle method ou Event
et tu recueille le nom de l'objet
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*--- aevent create an array laEvents
   Aevents( myArray, 0)
 *--- reference the calling object
    loObject = myArray[1]
messagenox(loObject.name)


Regarde aussi dans foxhelp :
AMOUSEOBJ(ArrayName [, 1])


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017493