如题，我一直把scrollbox当作功能强大的panel（笑），现在的问题是，scrollbox的滚动条（scrollbar）只能通过鼠标拖动进行滑动

我想问，能不能通过鼠标滚轮 实现滚动条的拖动？

谢谢

我用的是d7  , form 的 event 可以攔截 MouseWheel , 在那邊處理就可以了

------
額有朝天骨,眼中有靈光

您好

給您一個例子，在 onmousewheel的事件中加入
if (WheelDelta > 0) then begin
TScrollBox(Sender).VertScrollBar.Position:=TScrollBox(Sender).VertScrollBar.Position-TScrollBox(Sender).VertScrollBar.InstanceSize;
end;
if (wheelDelta < 0) then begin
TScrollBox(Sender).VertScrollBar.Position:=TScrollBox(Sender).VertScrollBar.Position TScrollBox(Sender).VertScrollBar.InstanceSize;
end;
試試吧！

------
Pillar Wang

首先感谢两位。

在提问的时候，我的表述不是很清楚。

对单一的ScrollBox 使之相应鼠标滚轮的动作，这个我可以实现； 现在的问题是，在ScrollBox 上还有其他的控件，例如 Richedit，那么就出现了这种情况：

Richedit 中的内容很多，因此Richedit 本身也具有了滚动条； 这时鼠标滚轮动作 就使 ScrollBox 和 Richedit 同时动作——我想要使二者区分开，不知道有没有什么好的办法？

再次感谢。

您好

其實我剛好也有遇到這樣的情況喔！
我的解決方式，就是在 SCROLLBOX上的物件的 ON CLICK 事件，都加上 SCROLLBOX.SETFOCUS
的處理！就可以達到讓SCROLLBOX搭配滑鼠滾輪的處理了！
參考看看吧！

------
Pillar Wang

編輯記錄

你好

我是想要实现 鼠标滚轮动作 对SCROLLBOX和 SCROLLBOX上的其他控件 分别 起作用，而不是只对scrollbox 起作用。

哈，但经过你的提醒，我想我可以在 onmousewheel事件中 判断当前是否是 这些控件 得到焦点。不过就是麻烦了点儿，如果有更好的办法，还请不吝赐教，谢谢！

===================引 用 pillar62 文 章===================
您好

其實我剛好也有遇到這樣的情況喔！
我的解決方式，就是在 SCROLLBOX上的物件的 ON CLICK 事件，都加上 SCROLLBOX.SETFOCUS
的處理！就可以達到讓SCROLLBOX搭配滑鼠滾輪的處理了！
參考看看吧！

您好

那這樣的話，可能要加上在ON MOUSE MOVE的時候要自動將焦點移到那個物件上！
不然使用者不一定會點選那個物件！

------
Pillar Wang

編輯記錄

已实现。再次感谢。也谢谢小杰克。