progressbar

[abcd]

hi,

anyone know how to stop this animation?


procedure TForm1.Button1Click(Sender: TObject);

const
PBS_MARQUEE = $08;
PBM_SETMARQUEE = WM_USER + 10;

Var
L : Integer;

Begin
L := GetWindowLong (ProgressBar1.Handle, GWL_STYLE);
SetWindowLong (ProgressBar1.Handle, GWL_STYLE, L Or PBS_MARQUEE);

SendMessage (ProgressBar1.Handle, PBM_SETMARQUEE, 1, 100);
End;

[nester261]

Try with...

SendMessage (ProgressBar1.Handle, PBM_SETMARQUEE, 0, 100);