Playlist mit Tmediaplayer

[aisti5792]

Hi

Ich bin gerade dabei das ich einen Mediaplayer mit Delphi programmiere und auch eine Playlist dazu. Bisher hat alles gut funktioniert. Ich habe eine Listbox erstellt und kann die Lieder auswählen die ich dann abspielen möchte, doch ich will auch automatisch wenn das eine Lied zu Ende ist auf das Nächste überspringen. Es geschieht leider nichts.

Hier wäre der Code:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to listbox1.Items.Count -1 do
   begin
   if Listbox1.Selected[i] then
   mediaplayer1.FileName:=listbox1.Items.Strings[i];
   mediaplayer1.Open;
   mediaplayer1.Play;
   ProgressBar1.Max:=Mediaplayer1.Length;
   label2.Caption:=timetostr((mediaplayer1.TrackLength[1]/(3600000*24)));
   end;

      if mediaplayer1.Position = mediaplayer1.Length then
   begin
   mediaplayer1.FileName:=listbox1.Items.Strings[i+1];
   mediaplayer1.Play;
   end;

end;

[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]