Marquee in Delphi 5

[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;