hola gente como estan, he estado probando en un reproductor que estoy haciendo(el cual no he terminado aun) poner que se pueda ir a la cancion anterior, he logrado hacer esto pero cuando estoy en la primera cancion y presiono el boton hacia atras me da el siguiente error "list index out of bounds (-1)" como puedo hacer para que cuando llegue aqui toque la ultima cancion del listado.
aqui le pongo para ir hacia atras.
Código Delphi
[-]procedure TForm1.BitBtn1Click(Sender: TObject);
var play:string;
begin form4.listbox1.itemindex:=(form4.listbox1.itemindex-1) mod form4.listbox1.Count;
play:= form4.listbox1.items.Strings[form4.listbox1.itemindex];
mediaplayer1.FileName:=play;
mediaplayer1.Open;
Mediaplayer1.Display:=form2;
StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + form4.listbox1.items.Strings[form4.ListBox1.itemindex];
Mediaplayer1.DisplayRect := rect(0,0,form2.Width,form2.Height);
MEdiaPlayer1.Play;
end;
Salu2
