如何在运行时为工具栏按钮分配TAction？

Question

我根据设置文件动态添加工具栏按钮。我想将TAction分配给它们。现在，我添加了具有操作OnExecute处理程序的OnClick事件，但如果操作被禁用，则工具栏按钮不会像在设计时添加的TMenuItems那样自动禁用。

所以，换句话说，我想让设计时的运行时版本使用集成开发环境中的“操作”下拉菜单来分配TAction。

下面是我到目前为止所做的(代码是C++，但它的作用很明显)。

TToolButton *b;
b = new TToolButton(ToolBar1);
b->Action = Form1->ActionManager1->Actions[0];
b->Parent = ToolBar1;

这会将按钮添加到ToolBar，并且它似乎遵循启用/禁用状态，但当单击时什么也不会发生。如何正确、完整地添加操作？

Answer 1

TToolButton具有已发布的Action属性。只需将所需TAction对象分配给该属性即可。