Forum: Multimedia
Delphi
by SirThornberry,
15. Apr 2004
einfach im OnTimer-Event
Zeitlabel.caption := gettimetodisplay(Mediaplayer.length);
Forum: Multimedia
Delphi
by SirThornberry,
15. Apr 2004
die Funktion arbeitet mit Millisekunden. Wenn Mediaplayer.length Sekunden sind brauchst du einfach nur die erste zeile nach dem "begin" rausnehmen
function getTimeToDisplay(wert: Cardinal;withhour: Boolean = False): String;
var stunden, minuten, sekunden: Integer;
begin
wert := wert div 1000; //bei Sekunden die Zeile raus
stunden := wert div 3600;
wert := wert - wert div 3600 * 3600;