TMediaPlayer

← →
Steef (2004-05-30 15:08) [0]

Как показать при воспроизведении фильма или клипа сколько времени прошло и их длину (час:мин:сек).

← →
gyry (2004-05-30 15:41) [1]

var position, Xb, Sek: integer; Hod: Byte;

MediaPlayer1.TimeFormat:=tfMilliseconds;
position := round(MediaPlayer1.Position/1000);
Xb := position div 60;
Sek := position mod 60; // сек
Hod := Xb div 60; // час
Xb := Xb mod 60; // мин
Time1.Caption := FormatFloat ("00:", Hod) +
FormatFloat("00:", Xb) +
FormatFloat("00", Sek);

TMediaPlayer Найти похожие ветки