Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как изменить стандартный цвет TProgressBar?

01.01.2007

Самый простой способ, это изменить цветовую схему в свойствах экрана...

А вот при помощи следующей команды можно разукрасить ProgressBar не изменяя системных настроек:

PostMessage(ProgressBar1.Handle, $0409, 0, clGreen); 

Вуаля! Теперь Progress Bar зелёный. Это всего лишь простой пример чёрной магии ;)

Взято из https://forum.sources.ru


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;
 
https://delphiworld.narod.ru/

DelphiWorld 6.0