mp3 player

[Gohac]

die fehlermeldung ist

Listenindex überschreitet das Maximum (-1)

meinst du den gesammten code?

oder hier erstmal den für den play button

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  (* ListBox ist leer -> Dialog aufrufen *)
  if Form2.Listbox1.Items.Count=0 then
    (* Dialog wurde nicht abgebrochen, Datei also angegeben *)
    if Opendialog1.Execute then
      (* Datei zur ListBox hinzufügen *)
      Form2.Listbox1.Items.Add(Opendialog1.FileName);

  (* Eintrag ausgewählt? *)
 if Form2.ListBox1.Items.Count > 0 and Form2.Listbox1.ItemIndex -1 then
  Form2.ListBox1.ItemIndex :=0;
    begin
      (* Eintrag dem Mediaplayer zuweisen und abspielen *)
      Mediaplayer1.FileName:=Form2.Listbox1.Items[Form2.Listbox1.ItemIndex];
      Mediaplayer1.open;
      MediaPlayer1.Play;
      Timer1.Enabled:=true;
      Progressbar1.Max:=Mediaplayer1.Length;
    end;
end;