Помощь - Поиск - Пользователи - Календарь
Полная версия: Progressbar
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
Dead.MorozZ
Как сделать приложение: при запуске программы появляется окошко, в котором полоса загрузки "ползет" до тех пор пока играет музыка. Музыка заканчивается полоса исчезает и появляется окно с формой.
rolleyes.gif Помогите пожа.. rolleyes.gif
Fang
Не понимаю зачем нужно слушать музыку перед запуском программы smile.gif

А если по теме: можешь посмотреть длину трека. Добавить на форму таймер и отрегулировать его интревал, чтобы заполнение прогресс-бара совпадало с концом песни.
klem4
Цитата
Не понимаю зачем нужно слушать музыку перед запуском программы


Очень часто используется ... только всетаки не ПЕРЕД запуском программы а ВО ВРЕМЯ запуска ... например ICQ smile.gif
Fang
Цитата
Очень часто используется ... только всетаки не ПЕРЕД запуском программы а ВО ВРЕМЯ запуска ... например ICQ


Ну.. очень часто оно используется немного в других целях. Окошко (с прогрессбаром или без) показывают пользователю, чтобы информировать его о процессе загрузки программы, а не для того чтобы там проиграла музыка.
Если программа небольшая и быстро грузиться, то необходимость в таком окне отпадает.
klem4
Извини конечно но причем тут прогрессбар? я ответел тебе на конкретное высказывание
Цитата(Fang)
Не понимаю зачем нужно слушать музыку перед запуском программы

? dry.gif
hiv
При старте программы стартуешь таймер с периодом пусть 1сек и воспроизведение звука. Далее по событию таймера смотришь позицию TMediaPlayer.Position в общей длине воспроизводимого звука TMediaPlayer.Length и соответственно отмеряешь свой прогрессбар. Только чтобы это все отрисовывалось нада там же (в событии таймера) запускать в конце Application.ProcessMessages;
Ну и проверка отыграла музыка или нет yes2.gif
Dead.MorozZ
To: hiv
О спасибо за помощь все так и сделал good.gif good.gif good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.