Цитата:
|
Сообщение от ZerMe
...Как можно выводить MediaPlayer1.Position в Label.Caption
с помощью таймера?..
|
Для начала, нужно добавить такую функцию
Код:
function LenPlay(ds, vs: integer): string;
var
hour, min, sec: integer;
begin
if vs = -1 then
ds:= ds div 1000 else
ds:= vs div 1000 - ds div 1000;
min := ds div 60;
hour:= min div 60;
if min > 60 then min:= min mod 60;
sec := ds mod 60;
Result:= FormatDateTime('h:mm:ss', EncodeTime(hour, min, sec, 0));
end; и в цикле таймера (на 1 сек) её вызывать так
Код:
...
// Осталось до конца
label1.Caption:= LenPlay(MediaPlayer1.Position, -1);
...
или так
Код:
...
// Прошло от начала
label1.Caption:= LenPlay(MediaPlayer1.Position, MediaPlayer1.Length);
...