Nächsten und Vorherigen Song in PlayList auswählen!

[DelphiUser7]

Hallo!
Weiß einer von euch, wie ich den jeweils nächsten bzw. letzten Song aus einer PlayList(TListBox) abspielen kann??
Ich verwende dazu eine TMediaPlayer-Komponente, und mehrere Buttons, die jeweils durch ihre Routinen mit den Buttons des Mediaplayers verbunden sind (Play,Pause,Stop,Nächster Track,Vorheriger Track).
Bei diesem Problem dreht es sich allerdings nur um den Nächster Track-Button, und den Vorheriger Track-Button, (im MediaPlayer btNext/btPrev an 4./5. Stelle).

Gruss
DelphiUser7

[LiquidSteel]

hiho


die antwort kommt zwar bissl spät aber hoffentlich hilft sie dir ... fals du es noch nicht hinbekommen hast

so spielt man den nächsten song :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: integer;
begin
with listbox1 do
   a := ItemIndex;
   listbox1.itemindex:= a + 1;
   If Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
   Mediaplayer1.FileName := listbox1.Items.Strings[listbox1.ItemIndex];
Mediaplayer1.Open;
Mediaplayer1.Play

end;

und so den vorherigen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: integer;
begin
with listbox1 do
   a := ItemIndex;
   listbox1.itemindex:= a - 1;
   If Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
   Mediaplayer1.FileName := listbox1.Items.Strings[listbox1.ItemIndex];
Mediaplayer1.Open;
Mediaplayer1.Play

end;

Viel spass noch