ah sag das doch hab gedacht du willsts auf 3 labels haben na dann is aber net viel anders.
einfach diese 3 zeilen statt den andern 3 zeilen in timer-procedure reinmachen
Delphi-Quellcode:
{was da eben hin muss} := strtoint(hour(Mediaplayer1.Position));
{was da eben hin muss} := strtoint(minute(Mediaplayer1.Position));
{was da eben hin muss} := strtoint(second(Mediaplayer1.Position));
strtoint(x) bedeutet nichts anders als das die zahl x vom string-typ in einen ínteger-typ, mit dem man dann rechnen kann, umgesetzt wird.
Hier wirds gleich für alle arten erklärt.