Если вы создавали этот класс сами, и наследовали его от какого-то еще, то попробуйте следующее:
Если вы хотите иметь доступ к методу, скажем, Click, вы должны назначить процедуру обработки событию Click вашего объекта, например, вот так:
ptrAnimal^.OnClick:= OnMyClick; |
Процедура, "получающая" событие, должна выглядеть приблизительно так:
procedure [FILE].OnMyClick(SENDER: TObject); BEGIN (SENDER as TAnimal).YourProperty:= Value; END; |
[001981]