nix. nur den code der oben steht. sonst ist das formular leer und im sonstigen programm befindet sich auch nicht mehr
aber hier mein code:
Delphi-Quellcode:
uses
..., xpman;
procedure TForm2.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;
end;
ohne progressbar1.DoubleBuffered := True; läuft alles bestens