custom-component - 应用 VCL 样式时，根据属性在运行时更改按钮颜色

Question

我正在使用 Delphi 10.2 中的 VCL 样式。

我MyButtonStyle在自定义按钮组件上有一个属性 - TMyButton，它继承自TButton.

type
  MyButtonStyle = ('Default', 'Red', 'Yellow', 'Green');

基于MyButtonStyle属性值：

应用 VCL 样式时，我想将颜色更改TMyButton为：默认（默认选择的样式颜色）、红色、黄色或绿色。

知道如何实现吗？

我尝试在 Delphi 中使用位图样式设计器。但它只允许在设计时选择颜色。如何在运行时实现这一点？

标签： custom-componentdelphi-10.2-tokyovcl-stylesskins