2
2008zzh
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.TrackBar1Change(Sender: TObject);
//trackbar的改变
begin
if trackbar1.position<>mediaplayer1.position then
begin
mediaplayer1.pause;
timer1.Enabled:=false;
mediaplayer1.position:=trackbar1.Position;
timer1.enabled:=true;
mediaplayer1.play;
end;
end;
我用这个来控制歌曲进度，可是只能拉Mp3，不能拉视频的，一拉就停了，连播放都不行了。高手帮我看一下！！！
//trackbar的改变
begin
if trackbar1.position<>mediaplayer1.position then
begin
mediaplayer1.pause;
timer1.Enabled:=false;
mediaplayer1.position:=trackbar1.Position;
timer1.enabled:=true;
mediaplayer1.play;
end;
end;
我用这个来控制歌曲进度，可是只能拉Mp3，不能拉视频的，一拉就停了，连播放都不行了。高手帮我看一下！！！