| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

обратный Timer

Змей ©   (2004-11-08 13:08:00) 

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

---

Pavia   (2004-11-20 14:33:00) [1]

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;

---

fashionguide   (2004-11-20 05:16:00) [2]

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

---

Pavia   (2004-11-08 14:28:00) [3]

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

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;


---

Наверх