Как изменить цвет в ProgressBar

В режиме проектирования, цвет ProgressBar определен настройкой самой Windows. Но мы можем изменить его цвет во время выполнения приложения. Для этого добавьте модуль CommCtrl в раздел uses Вашего приложения и измените цвет индикатора, например, в событии OnCreate формы.
Вот пример решения:
uses
{ ... }, CommCtrl;
{ ... }
procedure TForm1.FormCreate(Sender: TObject);
begin
// Устанавливаем цвет фона ProgressBar
ProgressBar1.Brush.Color:= clYellow;
// Устанавливаем цвет индикатора
SendMessage(ProgressBar1.Handle,
PBM_SETBARCOLOR, 0, clGreen);
end;
Все!
Комментарии