更改进度条颜色

Question

我的表单中有一个进度条，我需要更改它的颜色。我需要它是黄色，所以我使用这个代码：

SendMessage(ProgressBar5.Handle, PBM_SETBARCOLOR, 0, clYellow); 

我正在使用Lazarus而我无法使用SendMessage();程序。然后我用google搜索了一下，发现我需要在lclintf库中使用。

现在我有另一个麻烦，因为Lazarus无法识别参数PBM_SETBARCOLOR。事实上它说：

unit5.pas(245,50) Error: Identifier not found "PBM_SETBARCOLOR";

我看到我编写的第一行代码是将ProgressBar的颜色从绿色更改为我需要的唯一方法。

有任何帮助吗？我使用的是Lazarus的最新版本。

Answer 1

PBM_SETBARCOLOR在freepascal的commctrl.pp单元中声明，与Delphi相同。

您也可以将其声明为值为1033（WM_USER + 9）的常量。