如何做一个播放器的滑条？

[kezhu]

不是用鼠标拖动滑条，拖到100，就从第100帧开始播很容易做。

是在播放时，让滑条随着播放向后移动，比如播到第100帧，滑条就自动到100，不用用户操作。

[Joe]

滚动条和帔同步我没有做过,但是你可以让滚动条和它的播放时间同步.那样的话只需要在定时器里面修改滚动条的位置即可.

[Frank.WU]

首先必須要取得歌曲的播放總長度,然後要取得當前播放的時間,其他問題就解決了.

[kezhu]

用timer同步可能不准，而且一秒播放几帧如何得知？

[mwb111]

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.Close;
MediaPlayer1.FileName:=listbox1.Items[listbox1.Itemindex];
MediaPlayer1.Open;
trackbar1.Max:=mediaplayer1.Length;
StatusBar1.Panels[0].Text:=floattostr(MediaPlayer1.Length/60000);
MediaPlayer1.Play;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
trackbar1.Position:=mediaplayer1.Position;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
mediaplayer1.Stop;
mediaplayer1.StartPos:=trackbar1.Position;
mediaplayer1.Play;
end;

[jackie168]

http://diary8.cn/play.asp?id=250

之前写的演示，参考下。。。