delphi - 将新属性添加到 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 可能会被黑客入侵以实现您的要求，但这不是一个好主意。