如何改变进度条颜色

[baoyuanzhi]

如何改变进度条颜色,
传统的深兰色很难看, 想换个颜色

[ccrun.com]

uses CommCtrl;
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clRed); // 红色前景

[smart_zhao]

老妖大斑竹 来Delphi 拉！！

[baoyuanzhi]

谢谢老妖大斑竹

[才子鸣]

UP

[smiler007]

老妖出手，果然厉害

[ZyxIp]

顶，以将老妖回答写在了记录本中。