【结贴】TScrollBox，鼠标中键**

crskyp

有一个TScrollBox 控件，我想用鼠标中键控制滚动条，
我在ScrollBoxMouseWheel  事件中写代码：
  TScrollBox( Sender).VertScrollBar.Position :=TScrollBox( Sender).VertScrollBar.Position -WheelDelta;
为什么不起作用？

lixy

ScrollBox1.VertScrollBar.Position :=TScrollBox( Sender).VertScrollBar.Position -WheelDelta;

我测试是管用的

crskyp

不会吧，你的代码放在哪里，那个版本，我这里怎么不管事？

crskyp

我更跟踪了下，就不响应ScrollBoxMouseWheel 事件

zfang

OnMouseWheel事件中

crskyp

找到原因了，ScrollBox上只放一个Panel，这时不响应  OnMouseWheel事件
请问怎么解决？

lixy

procedure TMainForm.BizFormShow(Sender: TObject);
begin
ScrollBox1.SetFocus;
end;

crskyp

楼上的方法在我上面说的例子上可以，
但是不适合我现在真正的程序，
我想用 ApplicationEvents 控件捕获滚轮事件，请问怎么写，写在哪里？

lixy

ApplicationEvents 去查查百度吧  这个是标准的vcl，我也不熟悉这个。

crskyp

好吧，揭帖。