我创建了一个具有工具栏的Stylebook组件。我的应用中的所有工具栏都有此样式查找。这个样式包含一个填充了TRectangle的TLayout,它具有样式名称" background"默认情况下颜色为红色。
我想让用户使用TComboColorBox设置工具栏的颜色。 因此,当他们选择颜色时,我希望所有工具栏都更改为他们选择的颜色。
现在我已经知道如何更改单个工具栏的样式,但我不想为每个工具栏设置属性。使用下面的代码,我可以更改单个工具栏的样式颜色。
ToolBar1.StylesData['background.Fill.Color'] := ComboColorBox1.Color;
如何同时为我的所有工具栏执行相同的操作?我猜是改变了StyleBook但是如何改变。另外,我的MainForm中的样式书也以其他所有形式加载,因此我也不需要在每个表单上进行更改。