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

Тема в разделе "Delphi", создана пользователем WinHack, 23 ноя 2016.

  1. WinHack
    Компонент TProgressBar в Delphi представляет из себя простой индикатор выполнения процесса. ProgressBar показывает пользователю о ходе выполнения процесса в приложении.

    app-with-change-color-progressbar.png
    В режиме проектирования, цвет 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;
    Все! =)