TListBox - 选定项滚动速度

Question

我需要更改列表框的速度在选择项目时滚动（按住鼠标左键），鼠标在列表框外移动。要复制该行为，请执行以下操作：

1. 在表单上放置一个列表框（+- 250 x 200 奇数）。不要让它太大，否则滚动条在底部将不可见。
2. 将列数设置为 3。

3. 将以下代码添加到 FormCreate：

   var
     I: Integer;
   begin
     for I := 0 to 200 do
       ListBox1.Items.Add('Item '+IntToStr(I));
   end;
   

4. 运行应用程序并确保底部的滚动条可见。现在在列表中的任何项目上单击并按住鼠标左键。移动鼠标，所选项目将根据鼠标光标下的项目而改变。问题是当鼠标移出列表框时，列表框会很快滚动，这在我的情况下是选择隐藏的项目所必需的。我正在尝试减慢滚动速度。

我了解这不是列表框的正常用法，并且该行为可能不完全符合标准 UI 指南。出于非常特定的目的需要它，问题是滚动速度让用户感到非常尴尬。

我已经使用拖放和计时器将一些东西放在一起，但这并不理想，因为控件周围的“命中”区域有点小。如果有一种开箱即用的方法，那就太好了。

Answer 1

下面的内容至少很尴尬。然而这是我唯一能想到的。使用插入器进行了演示，但您可以使用任何其他方式使用 ApplicationEvents 组件或子类。

type
  TListBox = class(stdctrls.TListBox)
  protected
    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  end;

procedure TListBox.WMMouseMove(var Message: TWMMouseMove);
begin
  if GetCapture = Handle then
    Sleep(250);
  inherited;
end;