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
