Naja so sollte man es vielleicht nicht umbedingt machen funzt aber:
Delphi-Quellcode:
type
TMarqueeProgress = class(TProgressbar)
public
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
end;
procedure TMarqueeProgress.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
DefaultHandler(Message);
end;