А у меня такой вопрос:
Я тоже делаю плеер и плейлист у меня работает вот таким макаром
Код:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.FileName := (String(ListBox1.Items[Listbox1.ItemIndex]));
MediaPlayer1.Open;
Mediaplayer1.Play;
end;
А следующий трек так:
Код:
procedure TForm1.Button7Click(Sender: TObject);
begin
MediaPlayer1.FileName := (String(integer(ListBox1.Items[Listbox1.ItemIndex+1])));
MediaPlayer1.Open;
Mediaplayer1.Play;
end;
Корочё у меня включается не следующий трек, а следующий ПОСЛЕ выделенного элемента. Помогите решить проблему !!!
Проще говоря нужно чтобы автоматически выделялся тот пункт в листбоксе который играет в данный момент !!!
Всем заранее спасибо !!!