怎么获取TDBGRIDEH的垂直滚动条事件

如何获取TDBGRIDEH的垂直滚动条事件？
我用下面的方式赋值出错
DBGrideh1.VertScrollBar.ExtScrollBar.OnScroll = myOnScroll;
这样也出错：
DBGrideh1.VertScrollBar.ExtScrollBar.OnScroll = nil;

另外，似乎没有滚轮事件？


------解决方案--------------------
DBGrid 可以这样解决， DBGrideh1 应该也可以吧

在相连的dataset的onscroll事件中；

或者改dbgrid代码
在tdbgrid类中增加一个事件onvscroll和一个过程，然后调用onvscroll事件
procedure wmscroll(var message:tmessage);message WM_VSCROLL;

procedure Tdbgrid.WMScroll(var message:tmessage);message WM_VSCROLL;
begin
inherited;
if assigned(onvscroll) then onvscroll;
end;


------解决方案--------------------
要不去修改源代码，要不建新类，否则好像没有别的方法。
------解决方案--------------------
子类化