<急啊！>关于多媒体进度控制（TTrackBar）的问题 ( 积分: 50 )

小弟近来开发了一个多媒体播放器 想用trackbar控制播放的进度，并且可以像mpc一样的拖动，或者点击就可以跳到相应的 播放位置 ，高手请赐教！！小弟万分感谢！！

小弟近来开发了一个多媒体播放器 想用trackbar控制播放的进度，并且可以像mpc一样的拖动，或者点击就可以跳到相应的 播放位置 ，高手请赐教！！小弟万分感谢！！

你是用什么做的呀，是用delphi自带的控件做的呀，还是和自己开发的呀

使用的delphi自带的trackbar做的

打开媒体时设置：
procedure TForm1.OpenPlayMedia;
begin

if OpenDialog1.Execute then

begin

if MediaPlayer1.State=msOpened then

MediaPlayer1.Close;
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.DeviceType:=dtAutoSelect;
TrackBar1.Max:=MediaPlayer1.Length;
MediaPlayer1.Play;
end;

end;


procedure TForm1.TrackBar1Change(Sender:TObject);
begin

MediaPlayer1.Position:=TrackBar1.Position;
end;