向 TActionList 中的 Action 添加新属性

Question

如何将新发布的（将在对象检查器中显示）属性添加到 Delphi 中 TActionList 的操作

属性数据类型为布尔型。

谢谢。

Answer 1

通过派生创建新的动作类 TAction. 。例如：

TMyAction = class(TAction)
...
published
  property MyBoolProp: Boolean ....
end;

然后您可以从设计时包中注册它 Register 通过调用程序 RegisterActions.

procedure Register;
begin
  .... // register any other components
  RegisterActions('MyCategory', [TMyAction], nil);
end;

然后从操作列表编辑器中选择 New Standard Action 您的操作将显示在可用操作的树视图中。

---

在评论中你似乎暗示你想修改 TAction 拥有一处新房产。这需要修改 VCL 本身，而这是您无法控制的。毫无疑问，VCL 可能会被黑客攻击来实现您所要求的目的，但这不是一个好主意。