Progressbar soll position des Mediaplayers anzeigen.

[cov]

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.