新手提问;如何使用鼠标中间滚轮控制滚动框的上下移动!

Question

只知道滚动框有一个MOUSEWHEEL事件,但还不懂怎用!

Answer 1

通过控制TScrollBox的VertScrollBar可以实现。
比如在MOUSEWHEEL事件里：
  if WheelDelta>0 then
    with ScrollBox1.VertScrollBar do
      Position := Position + Increment
  else
    with ScrollBox1.VertScrollBar do
      Position := Position - Increment;
  Handled := true;

Answer 2

那如何让鼠标落在ScrollBox内就可以用MOUSEWHEEL来控制VertScrollBar。
而不用将焦点落在ScrollBox内才起作用？

Answer 3

用窗体的MOUSEWHEEL,就不用考虑焦点落在哪里了