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;