如何更改 TProgressBar 的颜色

Delphi 组件 TProgressBar 显示一个进度条。进度条可对应用程序中的某一过程的处理进度提供一个可视化的反馈。

根据设计，进度条的颜色取决于 Windows。下面的代码演示如何在运行时更改 TProgressBar 的背景颜色和进度块的颜色。

uses CommCtrl, ...
...
// Set Background color
ProgressBar1.Brush.Color := clRed;
// Set Bar color
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlue) ;

原文名称：How to Change the Colors of the TProgressBar
原文地址：http://delphi.about.com/od/adptips2006/qt/colorbar.htm
源码下载：http://delphi.about.com/library/weekly/code/progressbarcolor.zip