delphi - 如何在运行时向 ActnPopup.TPopupActionBar 组件添加标准操作？

Question

我正在使用ActnPopup.TPopupActionBar组件，我想添加一些标准操作，例如 TFileOpen , TFileOpenWith等等。问题是我如何在运行时将这些操作添加到 TPopupActionBar？

Answer 1

我会尝试这样的事情:

procedure TForm1.Button1Click(Sender: TObject);
var
  MenuItem: TMenuItem;
  Action: TCustomAction;
begin
  MenuItem := TMenuItem.Create(PopupActionBar1);
  Action := TFileOpen.Create(PopupActionBar1);
  Action.Caption := '&Open...';
  Action.ShortCut := 16463;
  MenuItem.Action := Action;
  PopupActionBar1.Items.Add(MenuItem);

  MenuItem := TMenuItem.Create(PopupActionBar1);
  Action := TFileOpenWith.Create(PopupActionBar1);
  Action.Caption := 'Open with...';
  MenuItem.Action := Action;
  PopupActionBar1.Items.Add(MenuItem);
end;

我从哪里获得 Caption 和 ShortCut 值？好问题。这些来自操作列表的组件编辑器。如果您将标准操作添加到操作列表并查看表单的源代码，则可以获得它们。在那里您将看到您的操作定义，如下所示:

object FileOpen1: TFileOpen
  Category = 'File'
  Caption = '&Open...'
  Hint = 'Open|Opens an existing file'
  ImageIndex = 7
  ShortCut = 16463
end

由于对于弹出菜单，您不需要提示(用于弹出菜单项？)，类别(用于操作列表)或图像索引(您可以定义自己的图像集，因此您的索引可能不同)，您可以离开他们。事实上，您可以保留所有这些，即使如此，操作也会执行(基于您将使用的类)，但您将没有标题或快捷方式。