应用VCL样式时,根据属性在运行时更改按钮颜色

问题描述

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

我在自定义按钮组件MyButtonStyle上有一个TMyButton属性,该属性继承自TButton

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

基于MyButtonStyle属性值:

应用VCL样式后,我想将TMyButton的颜色更改为:认(认选择的样式颜色),红色,黄色或绿色。

有什么想法可以实现吗?

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

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)