Форум: "Media";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Внизобратный 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 вся ветка
Форум: "Media";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.038 c