Как изменить цвет в 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;
Все!
Комментарии