怎么样能够让ScrollBox控件响应鼠标中间的滚轮？

Question

怎么样能够让ScrollBox控件响应鼠标中间的滚轮？
是不是设个什么属性就行了，如果是要程序实现，能不能给我完整的程序。

Answer 1

大家快来看看啊，
如果不能用ScrollBox实现，那么有没有其他相类似的控件可以用，各位大哥帮帮忙啊！

Answer 2

procedure TFormEmployeesDataOperate.ScrollBox1MouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
begin
  if WheelDelta < 0 then
    ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
  else
    ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
end;

Answer 3

SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);//下滚
SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0);//上滚
SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINERIGHT, 0);//右滚
SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINELEFT, 0);//左滚