Progressbar加上色彩。

Progressbar加上色彩。

---

    const

    {$EXTERNALSYM PBS_MARQUEE}

    PBS_MARQUEE = 08;

    var

      Form1: TForm1;

    implementation

    {$R *.dfm}

    uses

    CommCtrl;

    procedure TForm1.Button1Click(Sender: TObject);

    begin

      // Set the Background color to teal

      Progressbar1.Brush.Color := clTeal;

      // Set bar color to yellow

      SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);

    end;