Скачать: CL | DM;

обратный Timer   Найти похожие ветки 

← →
Змей ©   (2004-11-08 13:08) [0]

здрасте Мастера
как сделать обратный осчет муз.трека и отобразить это в edit1.text очень надо
хелп плиз я ваще не знаю как
заранее пасиба

---

← →
Pavia ©   (2004-11-08 14:28) [1]

Я бы сделал так.Но можно и подругому.

procedure TForm1.Timer1Timer(Sender: TObject);
var t:integer;
begin
MediaPlayer1.TimeFormat:=tfMilliseconds;//милисекунды, можно выброть другой формат времени.
t:=(MediaPlayer1.Length-MediaPlayer1.Position);
edit1.Text:=format("%d:%d:%d:%d",[t div 3600000 ,t div 60000 mod 60,t div 1000 mod 60,t mod 1000]);

end;


---

← →
fashionguide ©   (2004-11-20 05:16) [2]

А как сделать симпатичнее отображение.. чтобы было не, например 2:4:56, а 02:04:56?

---

← →
Pavia ©   (2004-11-20 14:33) [3]

procedure TForm1.Timer1Timer(Sender: TObject);
var t:integer;
begin
MediaPlayer1.TimeFormat:=tfMilliseconds;
t:=(MediaPlayer1.Length-MediaPlayer1.Position);
edit1.Text:=format("%.2d:%.2d:%.2d:%.3d",[t div 3600000 ,t div 60000 mod 60,t div 1000 mod 60,t mod 1000]);
//XX:XX:XX:XXX часы:минуты:секунды:милисекунды
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c