Pues eso, tengo el siguiente código:
Código Delphi
[-]procedure TFMain.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.TimeFormat := tfMilliseconds;
if Progreso.MaxValue <> 0 then
Progreso.Progress := MediaPlayer1.Position;
Label2.Caption := FloatToStr(Trunc(MediaPlayer1.Position / 1000) div 60 )+ ' : ' +FloatToStr(Trunc(MediaPlayer1.Length / 1000));
end;
El tiempo me muestra de esta manera:
01 : 197
No logro que la parte de los segundos llegue a los 60 y vuelva a empezar, la de los minutos trabaja correctamente por cada 60 segundos que pasa, ¿alquien me pude ayudar con esto?.
Saludos.