Im Anhang ist ProgressBar zusätzlich enthalten, entpacke das in Dein Memp, kompiliere, teste.
Klappt es mit Delphi 7? Sind die Sekunden Spuler Knöpfe nun noch Notwendig?
Bin schon müde, +3 / -3 Sekunden Knöpfe kommen Morgen ran.
Ps: Erstelle vorher Backup von Dein Memp, man weiß ja nie...
Pps:
Der Code dazu sieht so aus:
Delphi-Quellcode:
procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i : integer;
begin
Form1.Caption := IntToStr(round(X / (pb1.Width / pb1.Max)));
i := round(X / (pb1.Width / pb1.Max));
// if ((i < pb1.Max)and(i > 0)) then
pb1.Position := i;
MeMPPlaylist.Progress := pb1.Position / 100;
end;
Wenn ich die Sekunden Knöpfe mache schaut Code danach so aus, kannst Du jetzt schon machen wenn Du Lust hast.
Delphi-Quellcode:
procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
pb1.Position := round(X / (pb1.Width / pb1.Max));
MeMPPlaylist.Progress := pb1.Position / 100;
end;