delphi - TPopupActionBar 的目的是什么？

TPopupActionBar 的目的是什么？手册上说的很少。
如何在 GUI 中使用它？

最佳答案

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;

关于delphi - TPopupActionBar 的目的是什么？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/42166744/