|
Registriert seit: 17. Jul 2005
905 Beiträge
Delphi 12 Athens
|
AW: Timerzeit ist nicht gleich Filmzeit
4. Aug 2019, 10:04
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(Mediaplayer1.Position);
end;
Dabei das Timer-Intervall auf deutlich unter 1 Sekunde stellen, sonst wirkt das hochzählen oft ungleichmäßig
Und ggf. die Anzahl der Sekunden von "Mediaplayer1.Position" in einen "schönen" Zeitstring umbauen. Also mit Mod 60 und Div 60 oder so. 
Being smart will count for nothing if you don't make the world better. You have to use your smarts to count for something, to serve life, not death.
|