如何在设计时从自定义 TComponentEditor 显示 ActionList 编辑器

Question

我有一个 TComponentEditor 后代，我注册了 TActionList 以提供一些自定义选项。

回到 D2007，我可以通过从 ActnEdit 单元调用 ShowActionListDesigner 来显示默认的 ActionList 编辑器。只需将 designide.dcp 添加到所需的包中即可：

procedure TMyActionListEditor.ExecuteVerb(Index: Integer); 
begin   
  if Index=1 then
    //do some stuff    
  else
    ActnEdit.ShowActionListDesigner(Designer, Component as TCustomActionList); 
end;

现在在 XE5 中，我尝试了 vcldesigner.dcp 等其他软件包，但我似乎无法找到哪个软件包包含 ActnEdt。奇怪的是它在 FMXReg.pas.

中使用

是否有调用标准 TActionList 编辑器的不同方法window？

Answer 1

ShowActionListDesigner 方法位于 Actnedit 单元中，它是 dclstd 包的一部分。

如何在设计时从自定义 TComponentEditor 显示 ActionList 编辑器

How to show ActionList editor from custom TComponentEditor at design time

delphi

otapi