loBinder=CREATEOBJECT("binder") >>BINDEVENT(_SCREEN, "caption", loBinder, "bound") >>_screen.Caption = _screen.Caption+" " >> >> >>DEFINE CLASS binder as Custom >> >>*--------------------------------------------------- >> PROCEDURE BOUND() >>*-- dn 2016/02/04 >> SET STEP ON >> AEVENTS(aE, THIS) >> oSrc=aE[2] >> lcP=aE[3] >> luVal=GETPEM(oSrc, lcP) >> ?luVal >>ENDDEFINE >>>
AEVENTS(aE, 0)to get the caller :)