[Sharky]

Привет всем , моя проблема заключаеться вот в чем: я создал плей лист
спомощью FListBox а как организовать по нажатию кнопки проигрывание сдледуюющего трека?
заранее спасибо большое!

[<<D>>]

if pl.count>0 then
if pl.itemindex+1<pl.count then
begin
pl.itemindex:=pl.itemindex+1;
Play(pl.items[pl.itemindex]);
end
else
begin
pl.itemindex:=0;
play(pl.items[pl.itemindex]);
end;

//Где PL - это твой Плайлист

[Dimanus]

Можно таким не замысловатым способом.

procedure TMPForm.SpeedButton3Click(Sender: TObject);// Next
begin
if ListBox1.ItemIndex < ListBox1.Count then
ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
if SpeedButton2.Tag = 1 then // SpeedButton2 - это Play.
Play;
end;