Andere Möglichkeit.
1. Datei ProgressBarVistaFix.pas anlegen:
Delphi-Quellcode:
unit ProgressBarVistaFix;
interface
uses
Messages, ComCtrls;
type
TProgressBar =
class(ComCtrls.TProgressBar)
private
procedure WMEraseBkgnd(
var Message: TWmEraseBkgnd);
message WM_ERASEBKGND;
end;
implementation
procedure TProgressBar.WMEraseBkgnd(
var Message: TWmEraseBkgnd);
begin
DefaultHandler(
Message);
end;
end.
2. In jedem Projekt, wo eine Progressbar verwendet wird, die
Unit ProgressBarVistaFix in die Uses Klausel aufnehmen.