Delphi 将新属性添加到TActionList中的操作

如何在Delphi中向TActionList的操作添加新的published（将在Object Inspector中显示）属性

属性数据类型为布尔值

---

谢谢。

从

traction

派生，创建新的动作类。例如：

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

然后可以通过调用从设计时包的

register

过程中注册它

然后从“操作列表编辑器”中，选择“新建标准操作”，您的操作将显示在可用操作的树状视图中

---

---

在注释中，您似乎暗示要修改

TAction

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

我希望它在我在TActionList中添加新动作时出现，如果您想了解我，请执行以下操作：打开新项目在表单上添加TActionList双击TActionList添加新动作项我希望添加的动作项具有新的内容财产……非常感谢……你太棒了……谢谢谢谢谢谢！：哦，我今天感觉到了爱，所以！！；-）啊，社区的便条已经从右边的栏中消失了。上面写着：“爱的夏天的第二周”或者类似的…@Marjan，现在我：-）

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