procedure TForm1.CoolButton6Click(Sender: TObject);
begin
//如果正处于播放状态则倒带后继续播放,否则倒带后不播放
if mediaplayer1.mode=mpplaying then
begin
MediaPlayer1.back;
MediaPlayer1.play;
end
else
MediaPlayer1.back;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if mediaplayer1.mode=mpplaying then
begin
mediaplayer1.timeformat:=tfmilliseconds;
trackbar951.max:=mediaplayer1.length div 1000;
trackbar951.position:=mediaplayer1.position div 1000;
end;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if form1.mediaplayer1.mode=mpplaying then
begin
mediaplayer1.position:=trackbar951.position*1000;
mediaplayer1.play;
end;
end;