Progressbar Position per Maus verändern

[Larsi]

Danke geht super.

[angos]

oder halt im Mousemove. So kannst du mit gedrückter Maustaste die Position verschieben:

Delphi-Quellcode:

procedure TForm1.ProgressBarMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if ssLeft in Shift then
      Progressbar.Position := Trunc(Progressbar.Max / ProgressBar.Width * X);
end;

Gruß
Ansgar