TScrollingWinControl的子类如何实现滚动条平滑滚动?(100分)

  • 主题发起人 一个过客
  • 开始时间

一个过客

Unregistered / Unconfirmed
GUEST, unregistred user!
写了一个继承自TScrollingWinControl的控件,基本代码和TScrollControl差不多,
但是当滚动条出现后,拖动滑块不能平滑滚动,只有当松开鼠标后才发生滚动,
请问代码应该怎样修改?
 
tacking:=true
 
netkk:
Tracking?
 
netkk is right.
HorzScrollBar.Tracking := true;
VertScrollBar.Tracking := true;

 
我靠! 原来这么简单,真象一头撞死!
 
顶部