Delphi中TScrollBar滚动何时达到极限，我该如何准确判断停止滚动？
- 内容介绍
- 文章标签
- 相关推荐
本文共计268个文字，预计阅读时间需要2分钟。
我已经使用了一些带滚动条的程序，当你继续拖动指针时，会更新链接的内容，而其他程序在你释放鼠标之前不会。这意味着此处涉及不同类型的Windows消息。但我在`ScrollBar`中找到的只有一种。
我已经使用了一些带滚动条的程序,当你还在拖动“拇指”时更新链接的内容,而其他程序在你释放鼠标之前不会.这意味着此处涉及不同类型的 Windows消息.但是我从TScrollBar中找到的只是一个OnScroll事件,在你拖动的时候不断激活.它也没有OnMouseDown或OnMouseUp事件.有没有办法为TScrollBar设置“OnEndDragging”通知？ 尝试使用此代码(使用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记录的WPARAM值.
本文共计268个文字，预计阅读时间需要2分钟。
我已经使用了一些带滚动条的程序，当你继续拖动指针时，会更新链接的内容，而其他程序在你释放鼠标之前不会。这意味着此处涉及不同类型的Windows消息。但我在`ScrollBar`中找到的只有一种。
我已经使用了一些带滚动条的程序,当你还在拖动“拇指”时更新链接的内容,而其他程序在你释放鼠标之前不会.这意味着此处涉及不同类型的 Windows消息.但是我从TScrollBar中找到的只是一个OnScroll事件,在你拖动的时候不断激活.它也没有OnMouseDown或OnMouseUp事件.有没有办法为TScrollBar设置“OnEndDragging”通知？ 尝试使用此代码(使用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记录的WPARAM值.