The TProgressBar Delphi component displays a simple progress bar. Progress bars provide users with visual feedback about the progress of a procedure within an application.
By design, the colors of a progress bar are determined by Windows. Here's how to change the background color and the bar color of a TProgressBar component, at run-time (download sample application):
uses CommCtrl, ...
...
// Set Background color
ProgressBar1.Brush.Color := clRed;
// Set Bar color
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlue) ;
Delphi tips navigator:
» How to Clone a Delphi Form
« How to Right Align a Menu Item