Stavi negde na formu dva labela - jedan za ukupno trajanje drugi za trenutnu poziciju.
Ovo je kod za ukupno trajanje, stavi ga u metodu Button6Click (dugme Next), recimo na kraj (nikako pre otvranja nove pesme):
Code:
Label1.Caption:= IntToStr(MediaPlayer1.Length div 60000) + ':' + FormatFloat('0#', Round(MediaPlayer1.Length / 1000) mod 60);
Slicno i za trenutnu poziciju, ali ovo stavi u Timer1Timer metodu, moze na pocetak:
Code:
Label2.Caption:= IntToStr(MediaPlayer1.Position div 60000) + ':' + FormatFloat('0#', Round(MediaPlayer1.Position / 1000) mod 60);
Nisam isprobao kod, mada bi trebalo da radi. Koliko se secam Lengh i Position su dati u milisekundama pa moras da delis sa 1000