我正在Delphi 10.2中使用VCL样式。
我在自定义按钮组件MyButtonStyle
上有一个TMyButton
属性,该属性继承自TButton
。
type
MyButtonStyle = ('Default','Red','Yellow','Green');
基于MyButtonStyle
属性值:
应用VCL样式后,我想将TMyButton
的颜色更改为:默认(默认选择的样式颜色),红色,黄色或绿色。
有什么想法可以实现吗?
我尝试在Delphi中使用位图样式设计器。但是它只允许在设计时选择颜色。如何在运行时实现这一目标?