Marquee in Delphi 5

[WizoHulk]

hmmm, es gibt kein propertie Marquee in der Progressbar.
Delphi 5 Läuft auf Windows 7

[DeddyH]

Du brauchst keine Property, setze ControlStyle der ProgressBar auf PBS_MARQUEE und sende ihr dann eine PBM_SETMARQUEE-Nachricht. Das steht alles in dem verlinkten Artikel.

[WizoHulk]

Danke schön das haut hin.
Aber wie kann ich das Flakern umgehen, denn mit Double Buffered Geht die Progressbar gar nicht.

[DeddyH]

Was hast Du denn ge"doublebuffered"? Die ProgressBar selbst oder ihren Parent?

[WizoHulk]

Die Progressbar selbst

[DeddyH]

Nimm das mal wieder raus. Ich bin gerade im Quality Central fündig geworden. Versuch es mal so:

Delphi-Quellcode:

type
  TProgressBar = class(ComCtrls.TProgressBar)
  private
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
  end;

  TForm1 = class(TForm)
    ...
  end;

implementation

...

procedure TProgressBar.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  DefaultHandler(Message);
end;

[WizoHulk]

Ast rein Super
Danke schön.

und was macht die genau.