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

[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