delphi如何创建颜色进度条？答案

【问题标题】：How can create a color progressbar in delphi?delphi如何创建颜色进度条？
【发布时间】：2010-04-06 07:45:40
【问题描述】：

我想在 XPMan 组件（它是：win xp 风格）使用的delphi 语言中创建一个颜色进度条。

我该怎么办？

使用什么代码？

【问题讨论】：

stackoverflow.com/questions/2583266/…的可能重复
最好关闭另一个，因为这个问题属于注册用户。

标签： delphi updatepanel-progressbar

【解决方案1】：

启用主题后，您无法更改进度条的颜色。禁用主题后，您可以通过向控件发送 PBM_SETBARCOLOR 消息来更改颜色。

由于您想要更改主题进度条的颜色，因此您必须自己完成所有绘图或使用模仿主题进度条的第 3 方进度条，您可以在其中更改颜色。

【讨论】：

FWIW，TMS Controls 有很多不错的进度条，如果你想要一个插入式的 3rd-party 解决方案。

【解决方案2】：

与 The_Fox 观点相同。如果你想要一个免费的第三者，这里有一个：http://rmklever.com/?p=138

【讨论】：

【解决方案3】：

uses
  commctrl

procedure TForm1.Button1Click(Sender: TObject);
begin
  ProgressBar1.Brush.Color := clGreen;
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
  ProgressBar1.Position := 50;
end;

【讨论】：