|
#1
|
||||
|
||||
Кнопк'Next'
Привет всем , моя проблема заключаеться вот в чем: я создал плей лист
спомощью FListBox а как организовать по нажатию кнопки проигрывание сдледуюющего трека? заранее спасибо большое! |
#2
|
||||
|
||||
Next Track
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 - это твой Плайлист |
#3
|
||||
|
||||
Можно таким не замысловатым способом.
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; |