delphi - 向 TActionList 中的 Action 添加新属性

Question

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

属性数据类型为 bool 值。

谢谢。

Answer 1

通过派生自 TAction 创建您的新 Action 类。例如:

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

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

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

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

---

在评论中，您似乎暗示要修改 TAction 以获得新属性。这将需要对 VCL 本身进行修改，而这超出了您的控制范围。毫无疑问，VCL 可能会被黑客攻击以实现您的要求，但这不是一个好主意。