|
Registriert seit: 17. Jul 2005
900 Beiträge
Delphi 11 Alexandria
|
AW: Timerzeit ist nicht gleich Filmzeit
4. Aug 2019, 11: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.
|