只需单击鼠标滚轮按钮即可滚动浏览Google Chrome

Question

在Google Chrome浏览器中点击鼠标滚轮按钮时，您会看到以下光标：

然后，当您用鼠标移动时，您可以滚动到所有可能的方向......

IE也有这个，但只是上下移动：

Delphi有没有可以做到这一点的组件？ （例如，对于TScrollBox）

Answer 1

例如，如果您将ScrollBars属性设置为ssNone之外的其他内容，则TMemo可以为您执行此操作。它甚至可以根据启用的滚动条进行调整。 TScrollBar组件的问题在于它本身没有任何可聚焦的部分，并且不会接收OnMouseWheel（/ Up / Down）事件，但它包含的窗口控件可能。但是，您可以在主窗体事件上为此编写解决方法。检查http://www.delphipages.com/forum/showthread.php?t=197309

处的解决方案

编辑：OnMouseWheel（/ Up / Down）应为OnMouse（/ Up / Down），感谢@Sertac Akyuz指出这一点;）

Answer 2

这个功能似乎在RAD studio 2009中是available（但在D7中没有）。 您需要使用Imouse（imouse.pas单位），控件必须具有csPannable的ControlStyle。

报价：

  

Imouse（imouse.pas unit）是滚动的标准实现   使用中间按钮（也称为“鼠标平移”）。它也用于   RAD Studio。 Imouse功能继电器在标准窗口滚动条上   并将WM_HSCROLL / WM_VSCROLL发送到窗口以使其滚动。它   适用于每个窗口，有滚动条（例如TListView，   TTreeView，即使是TForm / TFrame，如果AutoScroll为True且至少为一个   滚动条可见）。

     

哦，我忘记了一件事。控件必须具有csPannable   ControlStyle，但RichView默认情况下没有。所以，添加代码后：   RichViewEdit1.ControlStyle：= RichViewEdit1.ControlStyle +   [csPannable];

我没有测试它。 剩下的就是查看源代码（当我可以获得D2009的副本时）并且可能用D7来表达这一点......