BINDEVENT
to a property so that the delegate gets the value I set to the property.>* Universal Thread ID: 1630781 - to Lutz >ot = CREATEOBJECT("cl_test") >od = CREATEOBJECT("cl_delegate") >BINDEVENT(ot, "somevalue", od, "get_somevalue_changed") >ot.somevalue = 10 >RETURN > > >DEFINE CLASS cl_test AS Custom > somevalue = 0 >ENDDEFINE > >DEFINE CLASS cl_delegate AS Custom > PROCEDURE get_somevalue_changed > ? "The value have changed" > ENDPROC >ENDDEFINE >>
ot = CREATEOBJECT("cl_test") od = CREATEOBJECT("cl_delegate") BINDEVENT(ot, "somevalue", od, "get_somevalue_changed") ot.somevalue = 10 BINDEVENT(ot, "otherprop", od, "get_somevalue_changed") ot.otherprop = 50 ...