如何使用 DoMouseWheel 一次滚动一行？

Question

我已经编写了一个网格控件，并想为其添加对鼠标滚轮的支持。我认为这就像重写 DoMouseWheel 虚拟方法一样简单，但它有一点问题。

您可以在控制面板中设置一次滚动的行数，默认为三行。当滚动浏览文档或网页时，这非常有意义，但在网格上，我认为期望的是一次滚动一行。但似乎 Delphi 的滚轮支持将为我滚动的每个凹口调用 DoMouseWheel 三次，这意味着我只能滚动到网格中的每第三行（或任何全局设置）。

如何让鼠标滚轮每次转动一次滚动一行？

更新：这里的简短答案是在滚动后简单地将 Result 设置为 True - 那么它不会滚动三次，而只会滚动一次。

Answer 1

只需复制 TCustomGrid 类中的代码即可，该类重写 DoMouseWheelDown() 和 DoMouseWheelUp() 以便一次只滚动一行。

Answer 2

一般来说，反对系统默认值和/或用户偏好并不是一个好主意。在这种情况下意味着您应该尊重系统或用户决定在滚动时间中设置的任何内容。

话虽如此，如果您确实认为多滚动效果是完全错误的，并且对您想要驱动的组件类型具有误导性，那么您可能会想出一种方法来摆脱这种情况。您可以尝试设置一些计时器并忽略在给定时间（毫秒范围内）内发生的除一个 mouseWheel 事件之外的所有事件。您应该做的一件事是在程序中设置一个配置选项，让用户关闭此行为。

Answer 3

就我而言，我使用了 JVDBGrid 组件，但我认为这也适用于 DbGrid。您可以覆盖以下函数：OnMouseWheelDown 和 OnMouseWheelUp。

例如：

类型声明：

type
  TMyGrid = class(TJvExDBGrid);

实现

procedure TFExample.JvDBGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin

  Handled := TMyGrid(Sender).DataLink.DataSet.MoveBy(1) <> 0;

end;

procedure TFExample.JvDBGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin

  Handled := TMyGrid(Sender).DataLink.DataSet.MoveBy(-1) <> 0;

end;