problema en listbox

[ramphi]

Empezado por delphi.com.ar

Me parece algo escueta la información.. ¿cómo estas obteniendo los items de la lista? ¿te esta produciendo algún error? ¿Puedes ponernos algo de código?

Saludos!

bueno aqui esta el codigo que uso para cargar y reproducir desde un boton

Código Delphi [-]
Var 
Dlg: Opendialog;
play:= sting;
begin
Opendialog1.Execute = True then    
 For k:= 0 to opendialog1.count-1 do
 begin
    dlg:= opendialog1.file[k];
  listbox1.additems(dlg.files,opendialog1.file);
        
play := listbox1.item.string[listbox1.itemidex+1]; 
MediaPlayer1.FileName:= play;  
        MediaPlayer1.Open;
        Mediaplayer1.DisplayRect := rect(0,0,OleContainer1.Width,OleContainer1.Height);
        MEdiaPlayer1.Play;
        StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + OpenDialog1.FileName;
        Label3.Visible := True;
        Label4.Visible := True;
    end;
 end;

ahora
uso un scrollbar para la cancion y en el evento onenddrag puse esto

Código Delphi [-]
var 
play: string;
 
 begin
  mediaplayer1.stop
  listbox1.itemindex:= listbox1.itemindex+1;
  play:= listbox1.item.strings[listbox1.itemindex];
  mediaplayer1.filename:= play;
  mediaplayer1.play;
 end;

pero el parecer no se ejecuta este ultimo y lo que quiero hacer es que el mediaplayer se pare y reprodusca la sigte.


gracias