delphi - TPopupActionBar 的用途是什么？

Question

TPopupActionBar 的用途是什么？手册对此几乎没有提及。
如何在 GUI 中使用它？

Answer 1

TPopupActionBar 是 TPopupMenu 的子类，并通过提供将操作与每个菜单项关联的选项来扩展 TPopupMenu。

使用下面的代码创建一个新的...

procedure TForm1.Button1Click(Sender: TObject);
var
  MenuItem: TMenuItem;
  Action: TCustomAction;
begin
  MenuItem := TMenuItem.Create(PopupActionBar1);
  Action := TFileOpen.Create(PopupActionBar1);
  Action.Caption := '&Open...';
  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;