Trackbar - Help!, TrackBar - Help!!! |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Trackbar - Help!, TrackBar - Help!!! |
Артемий |
Сообщение
#1
|
Помощник капитана Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: 2 |
Как сделать чтобы TrackBar умел перематывать музыку?
-------------------- Dum spiro spero!
|
GoodWind |
Сообщение
#2
|
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
подозреваю, что с помощью 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; метод, конечно "через Жо", просто первое, что пришло в голову... да, и не забывай приостанавливать таймер при остановке\паузе песни.. -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
Текстовая версия | 29.04.2024 8:34 |