Progresbar zur Laufzeit zur Marquee ProgressBar machen?

[jfheins]

Also bei mir funktioniert der Code wunderbar ... :gruebel:

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

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;

[Cyberbob]

Irgendwelche Einstellungen von Delphi?
Es kommen auch keine Fehlermeldungen, die Progressbar bleibt einfach nur bei 0%
Kanns auch an Vista liegen?

[RavenIV]

Zitat:

Zitat von Cyberbob

Irgendwelche Einstellungen von Delphi?
Es kommen auch keine Fehlermeldungen, die Progressbar bleibt einfach nur bei 0%
Kanns auch an Vista liegen?

Es wird wohl die unit xpman fehlen...

[Cyberbob]

xpman ist da, sonst würde er ja nicht alles im neuen style anzeigen. ich hab eben feststellen können. das das programm, was unter vista nicht geht unter xp wunderbar läuft. also liegts an vista

[Fussball-Robby]

Es gab hier kürzlich erst einen Thread, in dem es um Probleme mit Doublebuffered & XPMan ging. Einfach mal suchen :wink:

[Cyberbob]

thx