Home » Tipps & Tricks » Komponenten » Sonstige » Farbe einer TProgressbar ändern

Farbe einer TProgressbar ändern

Die Farbe des Fortschrittsbalken einer TProgressbar lässt sich nicht im Objektinspektor einstellen. Nur über eine bestimmte Botschaft lässt sich die Farbe der Progressbar ändern:

uses
 CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ProgressBar1.Perform(PBM_SETBARCOLOR, 0, clRed);
end;

In diesem Beispiel wird der Fortschrittsbalken rot gefärbt.In älteren Delphi-Versionen ist die Konstante PBM_SETBARCOLOR noch nicht deklariert. Die Konstante hat den Wert $0409.