hier meine Button.click prozedur
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
if B2CLICKED = false
then begin
Mediaplayer1.Play;
Button2.Caption := 'Pause';
B2CLICKED := true;
Timer1.Enabled := true;
Progressbar1.Max := Mediaplayer1.Length;
Progressbar1.Position := 0;
end
else begin
Mediaplayer1.Pause;
Button2.Caption := 'Play';
B2CLICKED := false;
end;
end;
hier die ontimer prozedur.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Progressbar1.Position := Mediaplayer1.Position
end;
Das Problem ist jetzt das der Progressbar erst bei der hälfte ist, obwohl das lied schon vorbei war.
lg CoV.