 Progressbar, Полоса загрузки |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| Dead.MorozZ |
 13.11.2005 14:17
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 108 Пол: Мужской Реальное имя: Георгий Репутация:  0   |
Как сделать приложение: при запуске программы появляется окошко, в котором полоса загрузки "ползет" до тех пор пока играет музыка. Музыка заканчивается полоса исчезает и появляется окно с формой.
 Помогите пожа.. -------------------- Минус - это уже половина плюса, а плюс порой - целых два минуса...
|
   |
 
|
  |
Ответов(1 - 6)
| Fang |
17.11.2005 17:37
Сообщение
#2
|
 Новичок Группа: Пользователи Сообщений: 48 Пол: Мужской Реальное имя: Fang Репутация: 2 |
Не понимаю зачем нужно слушать музыку перед запуском программы
 А если по теме: можешь посмотреть длину трека. Добавить на форму таймер и отрегулировать его интревал, чтобы заполнение прогресс-бара совпадало с концом песни. |
|
|
|
| klem4 |
17.11.2005 17:48
Сообщение
#3
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Не понимаю зачем нужно слушать музыку перед запуском программы Очень часто используется ... только всетаки не ПЕРЕД запуском программы а ВО ВРЕМЯ запуска ... например ICQ -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Fang |
18.11.2005 8:41
Сообщение
#4
|
|
Новичок Группа: Пользователи Сообщений: 48 Пол: Мужской Реальное имя: Fang Репутация: 2 |
Цитата Очень часто используется ... только всетаки не ПЕРЕД запуском программы а ВО ВРЕМЯ запуска ... например ICQ Ну.. очень часто оно используется немного в других целях. Окошко (с прогрессбаром или без) показывают пользователю, чтобы информировать его о процессе загрузки программы, а не для того чтобы там проиграла музыка. Если программа небольшая и быстро грузиться, то необходимость в таком окне отпадает. |
|
|
|
| klem4 |
18.11.2005 8:47
Сообщение
#5
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Извини конечно но причем тут прогрессбар? я ответел тебе на конкретное высказывание
Цитата(Fang) Не понимаю зачем нужно слушать музыку перед запуском программы ?  -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| hiv |
18.11.2005 9:07
Сообщение
#6
|
 Профи Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: 11 |
При старте программы стартуешь таймер с периодом пусть 1сек и воспроизведение звука. Далее по событию таймера смотришь позицию TMediaPlayer.Position в общей длине воспроизводимого звука TMediaPlayer.Length и соответственно отмеряешь свой прогрессбар. Только чтобы это все отрисовывалось нада там же (в событии таймера) запускать в конце Application.ProcessMessages;
Ну и проверка отыграла музыка или нет  -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
|
|
|
| Dead.MorozZ |
18.11.2005 19:38
Сообщение
#7
|
|
Пионер Группа: Пользователи Сообщений: 108 Пол: Мужской Реальное имя: Георгий Репутация: 0 |
To: hiv
О спасибо за помощь все так и сделал  Сообщение отредактировано: Dead.MorozZ - 18.11.2005 19:39 -------------------- Минус - это уже половина плюса, а плюс порой - целых два минуса...
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 19.06.2025 16:53 |