我如何知道何时停止滚动 TScrollBar？

Question

我使用过一些带有滚动条的程序，这些程序可以在您拖动“拇指”时更新链接的内容，而其他程序则在您释放鼠标时才会更新。这意味着这里涉及不同类型的 Windows 消息。但我从 TScrollBar 中能找到的只是一个 OnScroll 事件，该事件在您拖动时不断触发。它也没有 OnMouseDown 或 OnMouseUp 事件。有没有办法为 TScrollBar 设置“OnEndDragging”通知？

Answer 1

尝试此代码（使用 Delphi 2009 进行测试），当您跟踪拇指时，它将用随机颜色填充表单客户端区域，并在释放拇指时将其填充为黄色：

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  Randomize;
  if ScrollCode = scTrack then
    Color := RGB(Random(256), Random(256), Random(256));
  if ScrollCode = scEndScroll then
    Color := clYellow;
end;

TScrollCode 值映射到您可以在 WM_HSCROLL 和 WM_VSCROLL。

Answer 2

当用户拖动拇指时“实时”更新滚动区域的程序正在处理 wm_HScroll 和 wm_VScroll 消息。那些仅在用户释放拇指时更新的代码正在处理 sb_ThumbPosition 代码。

这两个选项有一个折衷方案，即在用户没有移动拇指一点点后进行更新，即使用户尚未真正释放它。处理sb_ThumbTrack，然后设置一个计时器。如果计时器触发，则更新显示。如果另一个 sb_ThumbTrack 到达，则重置计时器。