控件重载的问题(100分)

我从TTreeView类中派生了一个新的控件 TTreeViewEx

TTreeViewEx = class(TTreeView)
private
{ Private declarations }
//内部的数据存储
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

我想重载TreeView的 OnChange ，我的目的是使这个控件在用户执行公布的 onChange 方法
前先运行一些指定的过程。
如何能实现？

谢谢[?]

TTreeViewEx = class(TTreeView)
private
{ Private declarations }
//内部的数据存储
protected
{ Protected declarations }
procedure Change(Node: TTreeNode); override;
public
{ Public declarations }
published
{ Published declarations }
end;
procedure TTreeViewx.Change(Node: TTreeNode);
begin
doSomething ....
inherited;
end;

Does it work!

接受答案了.