(未解决..在线等待...) 小弟正在试做一个MP3播放器,想用TRACKBAR跟踪播放的进度,可是用TrackBar1.max:=MedliaPlayer1.length传递给Trac

Question

同题! (未解决..在线等待...)   小弟正在试做一个MP3播放器,想用TRACKBAR跟踪播放的进度,可是用TrackBar1.max:=MedliaPlayer1.length传递给TrackBar1,后Trackbar不能动实在头疼,请大家帮帮忙,告诉我为什么不行,解决的思路,最好能写出代码,不胜感激!

Answer 1

將mediaplayer.position付值給trackbar1.position 就可以了用timer控件控制就行了

Answer 2

position需要初始化么,我试过好象不行

Answer 3

用一个TTimer控件来跟踪播放进度就行了：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TrackBar1.Max:=MediaPlayer1.Length;
  TrackBar1.Position:=MediaPlayer1.Position;
end;

Answer 4

用 blazingfire(烈焰) 方法就可以了把TrackBar1.Max:=MediaPlayer1.Length放到開始播放mp3文件時