| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
mediaplayer [D7, WinXP]
iudjen © (2004-01-31 17:25:00)как зделать чтобы при заканчивание песни listbox переходил на слежующую песню в списке
Batoon (2004-02-03 20:18:00) [1]Я делал так (если воспроизводишь с помощью TMediaplayer):
1. Ввел переменную index:integer, которая равнялась номеру индекса воспроизводимой строки(песни);
Поставил на форму TTimer и у него в событие OnTimer написал:
var
i:integer;
begin
if mediaplayer1.position = mediaplayer1.lenght then
begin
mediaplayer1.stop;
mediaplayer1.close;
mediaplayer1.filename:=listbox1.items.strings[index+listbox1.itemindex];
mediaplayer1.open;
mediaplayer1.play;
index:=listbox1.itemindex;
end;
end;
3. Если я нигде не ошибся и ты все понял, то все получиться!!!
Mihey (2004-01-31 17:44:00) [2]Когда композиция заканчивается, возникает событие OnNotify. Его и обрабатывай.
iudjen_21 (2004-01-31 17:26:00) [3]Пожалуйста только не стерайте это сообщение.
| |
