有一个time空件每一秒TrackBar走一各后触发以下事件,所以声音不连贯,应怎么做?
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if mediaplayer1.Mode=mpplaying then
begin
mediaplayer1.Stop;
mediaplayer1.Position :=trackbar1.Position*1000;
mediaplayer1.Play;
end;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if mediaplayer1.Mode=mpplaying then
begin
mediaplayer1.Stop;
mediaplayer1.Position :=trackbar1.Position*1000;
mediaplayer1.Play;
end;
end;
mediaplayer1.Position :=trackbar1.Position*1000;
mediaplayer1.Play;