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

Question

不是用鼠标拖动滑条，拖到100，就从第100帧开始播很容易做。是在播放时，让滑条随着播放向后移动，比如播到第100帧，滑条就自动到100，不用用户操作。

Answer 1

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

Answer 2

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;

Answer 3

http://diary8.cn/play.asp?id=250之前写的演示，参考下