Delphi/C++Builder Ribbonコントロールへの動的追加

Ribbonコントロールへアイテムを動的追加する

フォームへ Ribbon コントロールと ActionManager (アクションを2，3追加しておく) を配置、Ribbonコントロールの ActionManager プロパティへセットしておく

procedure TForm1.Button1Click(Sender: TObject);
var NewTab: TRibbonPage;
    NewGroup: TRibbonGroup;
    ActClientItem: TActionClientItem;
begin
    // タブ
    NewTab := TRibbonPage.Create(Self);
    NewTab.Parent := Ribbon1;
    NewTab.Caption := 'New Tab';
    Ribbon1.AddTab(NewTab);

    // グループ
    NewGroup := TRibbonGroup.Create(Self);
    NewGroup.Parent:= NewTab;
    NewGroup.Caption := 'New Group';
    NewTab.AddGroup(NewGroup);

    // アクションバンド
    NewGroup.ActionClient := ActionManager1.ActionBars.Add;
    NewGroup.ActionClient.ActionBar := NewGroup;

    // ボタン
    ActClientItem := NewGroup.ActionClient.Items.Add;
    ActClientItem.Action := ActionManager1.Actions[0];
end;