Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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

Приложение с измененным 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;

Все!


 

Добавить комментарий


Защитный код
Обновить