Цитата:
Сообщение от ALexandr555
Код:
procedure TfrmMyBrowser.TrackBar2Change(Sender: TObject);
begin
TrackBar2.Max := TrackLength;
MediaPlayer1.Position := MediaPlayer.Position + 1;
end;
|
Код:
TrackBar2.Max := MediaPlayer1.TrackLength;
это делается один раз, в начале воспроизведения
а позиция задаётся так:
Код:
TfrmMyBrowser.TrackBar2Change(Sender: TObject);
begin
MediaPlayer1.Position := TrackBar2.Position;
end;