Какова цель TPopupActionBar?

Question

Какова цель TPopupActionBar? В руководстве мало сказано об этом.
Как его использовать в графическом интерфейсе?

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;