Progressbar Position per Maus verändern

[Volle]

Zitat von divBy0:

Müsste so gehen:

Delphi-Quellcode:

procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  MouseX: Integer;
begin
  MouseX := round(X / (ProgressBar1.Width / 100.0));

  ProgressBar1.Position := MouseX;
end;

wäre es nicht besser es so zu machen?

Delphi-Quellcode:

...
MouseX:=round((X*ProgressBar1.Max)/ProgressBar1.Width);
...

ich mein wegen integer und kuerzung ..

[edit]
achso verdammt du hast ja 100.0 geschrieben
[/edit]