Hallo und guten Tag,
nun arbeite ich weiter an meinem Videoplayer, doch hier gibt es wieder ein Problem:
In das Programm habe ich einen Timer eingebaut, der entsprechend der Filmzeit laufen soll,
doch er tut es nicht...
Hier ist der Code für den Timer:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Sekunde<10 then Label1.Caption:=IntToStr(minute)+':0'+IntToStr(Sekunde)
else Label1.Caption:=IntToStr(minute)+':'+IntToStr(Sekunde);
sekunde:=sekunde+Timer1.Interval div 1000;
if Sekunde=60 then
begin
Minute:=minute+1;
Sekunde:=0;
end;
Progressbar1.Position:=Mediaplayer1.Position;
if Mediaplayer1.Position=Mediaplayer1.Length then
Button5.Click;
Timer1.Tag:=Progressbar1.Position;
Genauere Erläuterungen zum Problem:
Button 1, 2 und 3 sind Play, Pause und Stop . Bei Button 1 und 2 habe ich
Timer1.Enabled:=True / False
verwendet. Bei Button 3 muss sich der Timer rücksetzen (auf 0:00), hierbei bitte ich um Hilfe.
Button 10 und 11 sind die Rück- und Vorspultasten - diese Funktionieren garnicht... Hier bitte ich nochmals um Hilfe.
Ich hoffe jemand versteht dieses Problem...
P.S. : Ich benutze RadStudio 10.3.1 von Embarcadero.