обратный 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?

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;

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