如何改变 TProgressbar的颜色

悬赏金额（1积分＝0.1元）：0 - 提问时间：2008-6-12 11:14:10 - 阅读次数：-回答本问题若被采纳你可得积分为:0*.8=0

如何改变 TProgressbar的颜色，哪位知道

问题补充｜提高悬赏｜无满意答案｜举行投票｜撤消问题 ┆ 我来回答 ┆ 评论 ┆ 举报

最佳答案

回答者：mychj - 童生≈一级 - 06-12 11:15

参见以下的示例代码：
uses
CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Set the Background color to teal
  Progressbar1.Brush.Color := clTeal;
  // Set bar color to yellow
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
end;

提问者对答案的评价：

感谢mychj的精彩解答

评论 ┆ 举报