在运行时更改TRibbon控件上的TRibbonGroups标题颜色

Question

我正在使用Delphi XE-5和TRibbon控件，我正在尝试在运行时在每个选项卡上创建组。如果选项卡上只有一个组，则组标题的字体颜色为黑色。

如果有多个组，则字体会着色。

我如何制作，以便每个组标题都是黑色的？我尝试在运行时更改组字体颜色，但它不起作用（RGroup.Font.Color：= clBlack;）

Answer 1

这是一个古老的主题，但万一有人仍然对此感兴趣...你还必须设置群组的颜色然后它才会起作用！

 RGroup.Font.Color:= clBlack;
 RGroup.Color:= clBlack;