控制avi的播放速度？

[zhoulifn]

利用mediaplay控件可播放avi，但是怎么控制他的播放速度呢？
或者用其它的方法播放avi，但又如何控制播放速度？
谢谢！

[rqcong]

gz

[line]

设置一个跟踪条来显示控制播放速度,由timer组件和trackbar组件配合控制.

[line]

参考如下代码:
在timer1timer事件中:var oldposi:integer//跟踪条的位置
begin
if abs(trackbar1.position-oldposi)>50 then
begin
if mediaplayer1.mode=mpplaying then
trackbar1.position:=mediaplayer1.position;
end;