hi.
mal ein fertiges stückchen code dazu:
einen TTimer aufs formular. interval sehr klein stellen und ins OnTimer event folgendes:
Delphi-Quellcode:
if progressbar1.Position=100 then
progressbar1.step:=-10
else if progressbar1.Position=0 then
progressbar1.step:=10;
progressbar1.Stepit;
im objektinspektor Timer1.Enabled auf
False stellen.
nun im OnMouseDown Event des buttons:
timer1.enabled := true;
und im OnMouseUp Event:
Delphi-Quellcode:
timer1.enabled := false;
progressbar1.position := 0;
//und hier dein code zum "abwerfen"
viel glück
Aenogym