Переопределение реакции на события

[ByWatt]

1. у объекта есть свойство процедурного типа, в котором хранится обработчик на определенное событие. например, TTreeView.OnAddition
2. при наступлении события этот обработчик берется у свойства через аккессор (в общем случае) read, и управление передается уже внутрь обработчика.
3. если это так, то возможно ли в потомке TTreeView переопределить функцию-акессор свойства OnAddition так, чтобы она возвращала не просто значение поля FOnAddition, а некоторую процедуру?

Переопределяю свойство в потомке следующим образом:

TExTreeView = class(TTreeView)
strict private
function GetOnAddition: TTVExpandedEvent;
...
published
property OnAddition read GetOnAddition;
end;
...

function TExTreeView.GetOnAddition: TTVExpandedEvent;
begin
Result := ExOnAddition;
end;

procedure TExTreeView.ExOnAddition(Sender: TObject; Node: TTreeNode);
var
t: TTVExpandedEvent;
begin
t := inherited OnAddition;
if Assigned(t) then t(Sender, Node);
SomeMyActions(Sender, Node);
end;

в общем, делаю так, и ничего не получается по идее, даже если FOnAddition будет пуста, то все равно должны выполняться какие-то действия SomeMyActions, но этого не происходит.

п.с. если же в конструкторе TExTreeView свойству OnAddition присвоить каку-нибудь тестовую процедуру типа TTVExpandedEvent, то при добавлении нового узла она будет выполняться, но управление внутрь ExOnAddition так и не передается

[mihali4]

Почитайте вот эту статейку:
http://ed.nko13.ru/index.php?page=6&ar=58
Все не очень сложно. Немного терпения при чтении и...
Думаю, это - именно то, что вам нужно...