Ahja hier die auflösung ich habe es nun so gemacht da ich das so haben wolte 0:00...
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var zeit,Minutes,Seconds:integer;
begin
with BassdllPlayer1 do
zeit:= position;
Minutes:= zeit div 60;
Seconds:= zeit mod 60;
if Seconds <10 then Label5.Caption :=IntToStr(Minutes) + ':0' + IntToStr(Seconds)
else Label5.Caption :=IntToStr(Minutes) + ':' + IntToStr(Seconds);
zeit:= bassdllplayer1.Length;
Minutes:= zeit div 60;
Seconds:= zeit mod 60;
if Seconds <10 then Label29.Caption :='Time: '+IntToStr(Minutes) + ':0' + IntToStr(Seconds)
else Label29.Caption :='Time: '+IntToStr(Minutes) + ':' + IntToStr(Seconds);
end;
es geht sogar ^^