关于scrollbox控件的问题。。。。。 在线等 急。。。。。急。。。。急

Question

请问各位大虾  
    如何判断scrollbox的滚动条是向左还是向右运动啊？？？
   分不够还可以加，拜托了     急。。急。急

Answer 1

在OnScroll中判断 ScrollCode就可以:
  case ScrollCode of
    sclineup:
    //往左滚动
    sclinedown:
    //往右滚动
end;
还有其他的，请参考TScrollCode

Answer 2

楼上的，你自己没用过吧，Tscrollbox对象没这事件，而且它的属性对象TControlScrollBar也没有这个事件。
楼主，我也有这个困扰，此番一定要解决它，等我来接分！

Answer 3

楼主，当我仔细看了看TScrollBox的帮助后，我发现它并没有Handle，也就是说它可能并不能发送WM_HSCROLL消息给事件处理程序。
所以建议你的办法就是——不用TScrollBox，而改用能起到同样作用的TScrollBar组件，正所谓“不破不立”。
1.添加一个或两个TScrollBar组件，这里以添加横向的TScrollBar为例。
2.声明以下消息处理函数：
procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
3.过载刚才声明的消息处理函数：
procedure TForm3.WMHScroll(var Message: TWMHScroll);
begin
  if (Message.ScrollBar <> 0) and (Message.ScrollCode = SB_LINERIGHT) then
    ...//向右滑动时你想做的事情
  if (Message.ScrollBar <> 0) and (Message.ScrollCode = SB_LINERIGHT) then
    ...//向左滑动时你想做的事情
  inherited;
end;