delphi - 我如何知道何时停止滚动 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 值映射到 WPARAM 值，您将在 WM_HSCROLL 中找到该值的记录。和WM_VSCROLL。