подозреваю, что с помощью
TMediaPlayer.
значит так...
при открытии файла нужно сделать:
Код
ScrollBar1.Max:=MediaPlayer1.Length;
т.е. максимальное значение трекбара (в моем случае скроллбара, разницы нет) теперь является концом песни.
ну и в обработчике события
OnChange пишем:
Код
if Sender<> Timer1 then
begin
ScrollBar1.Max:=MediaPlayer1.Length;
MediaPlayer1.Play;
end;
собственно, все... ну и для красоты засунем таймер с небольшим интервалом - пусть передвигает нам ползунок трекбара...
Код
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ScrollBar1.Position:=MediaPlayer1.Position;
end;
метод, конечно "через Жо", просто первое, что пришло в голову...
да, и не забывай приостанавливать таймер при остановке\паузе песни..