[Blacksoft]

Код:

const

PBS_MARQUEE            = $08;

PBM_SETMARQUEE         = WM_USER+10;

begin

with ProgressBar1 do

begin

   SetWindowLong (Handle, GWL_STYLE, (GetWindowLong (Handle, GWL_STYLE) or PBS_MARQUEE));

   Perform(PBM_SETMARQUEE, 1, 40);

end;