求救使用滑块移动产生事件效果(比如TTackbar控件)?
效果图如下:


目前我是用TTackbar控件来实现,主要这个问题无法实现
问题: 滑块移动的时候,移动到目的地,松开鼠标后,这时候才产生事件.
目前利用OnChange事件,发现每一格都会跳出事件来的.
[解决办法]
好像又弄错了LZ的意思

照上面的代码基础改一下，这样应该对了吧？

[解决办法]
那按前面4楼的，简单加个判断得了