更改进度条颜色

Question

我的表格中有一个进度条,我需要更改它的颜色.我需要它是黄色,所以我使用这个代码:

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

我正在使用Lazarus,我无法使用该SendMessage();程序.然后我用谷歌搜索了一下,我发现我需要在lclintf库中使用.

现在我有另一个麻烦,因为拉撒路无法识别参数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)的常量.