如何实现 TrackBar 连续控制播放进度问题

Question

我写了一段程序，准备用TrackBar 控制播放的进度，但运行起来的时候中是断断续续的，高手，急，怎么才能连续播放
我的源码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
trackbar1.min:=0;
trackbar1.max:=mediaplayer1.length;
trackbar1.position:=mediaplayer1.position;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if MediaPlayer1.Mode=mpPlaying then
begin
  MediaPlayer1.Pause;
  MediaPlayer1.Position:=TrackBar1.Position;
  MediaPlayer.Play;
end
else
  MediaPlayer1.Position:=TrackBar1.Position;
  MediaPlayer.Play;
end;

Answer 1

你控制流程有问题，发消息给我，我给你个例子