[BCB] ProgressBarの色を変える

以下のようにするとProgressBarのバーの部分の色が変えられます。

#include <CommCtrl.h>

void __fastcall TForm1::FormCreate(TObject *Sender)
{
　SendMessage(ProgressBar1->Handle, PBM_SETBARCOLOR, 0, clTeal);
　//SendMessage(ProgressBar1->Handle, PBM_SETBARCOLOR, 0, RGB(255,0,0));
}

[Delphi] ProgressBarの色を変える

以下のようにするとProgressBarのバーの部分の色が変えられます。

uses CommCtrl;

procedure TForm1.FormCreate(Sender: TObject);
begin
　SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clTeal);
　//SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, RGB(255,255,0));
end;