Progresbar zur Laufzeit zur Marquee ProgressBar machen?

[jfheins]

Also bei mir funktioniert der Code wunderbar ...

Ich würde jetzt fast sagen, der Fehler muss woanders liegen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const 
  PBS_MARQUEE  = $08; 
  PBM_SETMARQUEE = WM_USER + 10; 
var 
  cs:LongInt;
begin 
  cs := GetWindowLong(ProgressBar1.Handle, GWL_STYLE); 
  SetWindowLong(ProgressBar1.Handle, GWL_STYLE, cs Or PBS_MARQUEE); 
  SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 40);
  progressbar1.DoubleBuffered := True;
  GroupBox1.DoubleBuffered := True;
end;