如何用TrackBar显示和控制DSPack的播放进度(100分)

因为界面整个都是三方控件，所以不想用DSPack自带的TrackBar控件，

哪位给个办法能用Delphi自带的TrackBar搞定就可以了。

折腾了一天也没搞定，分数不是问题。

自带的TrackBar没有MouseDown,MouseUp事件，象拖动进度条就不能实现，
还有点击进度条的某处，让进度块移到点点击处，也要算,我用的Rx的
procedure TFMain.RxSlider1Change(Sender: TObject);
begin

MediaPlayer1.Position := RxSlider1.Value;
end;


procedure TFMain.RxSlider1MouseUp(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
a: integer;
begin

Pause;
a := x * RxSlider1.MaxValue div RxSlider1.Width;//算点击的位置
RxSlider1.Value := a;
Play;
end;

我有完全的代码，讲明你的要求，也可联系我76431082

我就是想用三方的TrackBar代替DSPack组件包中的trackbar控件，

实现拖动进度条调整播放进度。

你的QQ多少？我的QQ是76431082，我给你发个三方控件！并把源码给你！