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