delphi - delphi如何创建颜色进度条？

Question

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

我该怎么办？

使用什么代码？

Answer 1

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

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

Answer 2

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

Answer 3

uses
  commctrl

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