Показать сообщение отдельно
  #2  
Старый 09.03.2006, 21:53
NSP NSP вне форума
Прохожий
 
Регистрация: 19.01.2006
Адрес: Moscow
Сообщения: 11
Репутация: 10
По умолчанию мда..

Мда..ну у тебя и стиль программирования...Тебе будет нелегко разобраться в своей же программе на 1000+ строк...
Ну так вот,должно работать,не проверял:
Код:
SelIndx: Integer;
FileName: String;
Count: Integer;
-глобальные переменные,где файлнейм-имя играющего файла.
При нажатии на кнопку плей:
Код:
var
    I: Integer;
begin
...//твой код
FileName:= MediaPlayer.FileName;
Count:= FileListBox1.Items.Count;
for I:=0 to Count-1 do
    if FileListBox1.Items.Strings[i] = FileName then SelIndx:= I;
Далее ловишь конец проигрывания файла(например по CurrentTime=TrackTime),а когда поймал,делаешь так:
Код:
if ((SelIndx+1) < Count) then
FileListbox1.Selected[SelIndx+1]:= True;
    MediaPlayer.FileName:= FileListBox1.Items.Strings[SelIndx+1];
И проигрываешь файл,всё просто!


P.S. Это называется не кодинг а листинг
Ответить с цитированием