在运行时更改TActionManager样式？

Question

我的表格上有一个TActionManager。

我希望在运行时能够从代码中将Action的样式更改为'Platform Default‘和XP Style’等。

当我尝试以下任何一项时：

ActionManager1.Style := 'Platform Default';
ActionManager1.Style := 'XP Style';

我得到以下错误：

不能将左侧分配给

我只能假设此属性是由错误消息读取的。

对于如何在运行时更改Action样式，是否有解决办法，或者可能缺少一些东西？

谢谢。

Answer 1

必须在TActionBarStyle属性中分配风格后代。

试试这个( XPStyle是在XPStyleActnCtrls单元中声明的一个全局变量)

  ActionManager1.Style:=XPStyle;