delphi - 带有灰色下拉菜单的 TToolbar 按钮

Question

我在让 TToolbar 按钮显示为“启用”时遇到问题

按钮有一个分配给它的 Action - 它由 OnClick 事件触发

它还设置了一个下拉菜单，其中有 2 个选项，都已启用，并且都在单击时触发。

尽管如此，TToolbar 按钮始终保持灰色，但接受点击。

有什么建议吗？

Answer 1

你做错了。 :-)

当使用 Action 时，你不使用按钮的 OnClick事件 - 您将代码放在操作的 OnExecute 中事件(因为那是正在执行的 - 操作 - 而不是按钮)。将操作分配给控件后，在有 TAction.OnExecute 的处理程序之前无法启用控件.

使用 Action 的原因是您可以将代码放在一个地方(与 Action 相关的事件)，然后附加到该 Action 的每个控件都使用该公共(public)代码来执行相同的功能。在该单一位置编辑代码意味着附加到该操作的所有控件都会看到相同的更改。

如果 TAction.OnExecute 没有附加任何内容事件，如果控件被选中(单击)，则控件没有任何作用，因此没有理由首先启用它。