雪地全裸跪求:trackbar控制视频进度问题

我想用trackbar控制视频进度~但是把
    
  windowsmediaplayer1.controls.currentPosition:=trackbar1.Position
  放到  
TrackBar1的onChange事件里会出现视频每秒卡一下的情况,我查了很多CDSN的帖子,都有写到,有的说用继承TRACKBAR,添加mouseup和mousedown事件,但是具体怎么操作呢?
我用的是delphi 10 lite
望高手指点`~

解决方案 »

  1.   

    雪地里面怪冷的，快起来吧。别处理onchange，因为你在视频播放过程中会根据播放进度更新trackbar的位置，
    这个更新也会触发onchange事件，然后这个事件又去修改播放进度，这样是有问题的。
    自己写个控件，继承TTrackBar，加上mousedown和mouseup事件，在这里处理就可以了。
      

  2.   

    问题已经解决了,可以用trackbar控件,就是做个boolean变量来判断是视频控制的change还是鼠标点的change