delphi - 对 "icon only"TButton 使用 TAction

Question

我有一个 TAction，可用于菜单项和 TButton。我希望菜单项显示标签，并且 TButton 仅显示图标。但是，当分配一个 Action 时，Vcl 会自动设置 TButton 的 Caption 属性，并且我无法摆脱它。

有什么想法吗？

Answer 1

在菜单项上，将 ImageIndex 设置为 -1。在按钮上，将 Caption 设置为 ''。您必须在运行时执行此操作。

这将破坏与这些单独属性的操作的关联。该操作仍将用于 Hint、OnExecute、OnUpdate 等。