Ayuda con Reproductor de Musica

[ecfisa]

Empezado por bigguntm

...
quisiera que me ayudaran con

Código Delphi [-]
// timer3
begin
if lbmusic.itemindex > -1 then // si lbmusic no tiene mas cancion, que timer2 quede ne 'false' (no se como hacer para saber si hay otro item o no) 
   Timer2.Enabled := true else
   Timer2.Enabled := false;
end;
...

Hola bigguntm.

Suponiendo que lbmusic sea un TListBox:

Código Delphi [-]
   Timer2.Enabled := lbmusic.Count <> 0;

Saludos.

[bigguntm]

hola brot, gracias por responder, pero no logro entenderte la idea,

Código Delphi [-]
//timer3
begin
if lbmusic.Count <> 0 then
   Timer2.Enabled := true else
   Timer2.Enabled := false;

ejemplo, si la ultima cancion esta en reproduccion, y no hay mas cancion despues de esa, porq es la ultima, quisiera que timer2 quede en false.

Código Delphi [-]

//timer2

begin

If MediaPlayer1.position=MediaPlayer1.length then begin

If RandomButton.down=false then begin
  If lbmusic.itemindex= lbmusic.items.count then lbmusic.itemindex:= -1;
   lbmusic.itemindex:= lbmusic.itemindex + 1;
end;

If RandomButton.down=true then begin
   Randomize;
   lbmusic.itemindex:= Random(lbmusic.items.count);
end;

lstbprogramas.ItemIndex := -1;
MediaPlayer1.filename:= lbmusic.items[lbmusic.itemindex];
MediaPlayer1.open;
MediaPlayer1.play;
end;
end;

saludos

[ecfisa]

Empezado por bigguntm

hola brot, gracias por responder, pero no logro entenderte la idea,
saludos

Hola.

El concepto es muy simple, la condición lbmusic.Count <> 0 arroja un resultado de tipo Boolean que será True si el primer término de la proposición lógica es diferente de cero y False si no lo es. Dicho resultado es asignado a la propiedad Enabled del TTimer, lo que hace innecesario el uso del condicional if ... then.

Saludos.