我想在TreeView 上的拖动滚动条时做点事情， 不过TreeView 上没有OnScroll ，怎么解决这个问题了呢

Question

处理
wm_hscroll
wm_vscroll
消息

Answer 1

同意VSaber(☆浪人☆)，你可以基于ttreeview类，自己制作一个组件，处理那两个消息就可以

Answer 2

change事件可不是处理滚动条的噢!

Answer 3

我发现继承了之后，
  滚动条不能拖动。procedure TMyListView.MyWM_HSCROLL(var Message: TMessage);
begin
  if Assigned(FOnHSCROLL) then FOnHSCROLL(self);end;procedure TMyListView.MyWM_VSCROLL(var Message: TMessage);
begin
  if Assigned(FOnVSCROLL) then FOnVSCROLL(self);end;
}

Answer 4

消息要inherited，否则你的滚动条接收不到消息了