переписать событие своего компонента

[Dimasw]

Подскажите плиз.
Создаю свой компонент

TTreeViewMarket = class(TTreeView)

в конструкторе определяю обработчик события OnChange

constructor TTreeViewMarket.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  (Self as TTreeView).OnChange:=OnMyChange;
end;

Все работает, но теперь возникает вопрос: Если этот компонент потом я ложу на форму и определяю ему обработчик события OnChange во время разработки то срабатывает одна обработка, если не определяю OnChange, то срабатывает другая, которая была заложена в конструкторе. Как сделать так, чтобы и та и эта обработка срабатывала на событие OnChange (определенная в конструкторе и та, что выбрал пользователь во время разработки проекта)

[Аватар]

Если устроит такая последовательность:
1. Отрабатывает пользовательский OnChange если есть
2. Отрабатывает внутренняя процедура на событие OnChange
то можно попробовать так:

type
  TTreeViewMarket = class(TTreeView)
  protected
    procedure Change(Node: TTreeNode); override;
  end;
...
procedure TTreeViewMarket.Change(Node: TTreeNode);
begin
  inherited;
  //здесь обращение к вашей процедуре обработки OnChange
  //в конструкторе не задавайте обработчик события OnChange
end;

[Dimasw]

Спасибо.
Я так и думал, только не знал какую процедуру переопределять. Искал в TCustomTreeView a надо в TWinControl.Change

[Аватар]

Так метод Change и находится в TCustomTreeView (по крайней мере в Д7)