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;
Статья Как изменить стандартный цвет ProgressBar 2 раздела Компоненты и Классы TProgressBar может быть полезна для разработчиков на Delphi и FreePascal.
