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

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

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

1. procedure TForm1.Button1Click(Sender: TObject);  
2. var NewTab: TRibbonPage;  
3.     NewGroup: TRibbonGroup;  
4.     ActClientItem: TActionClientItem;  
5. begin  
6.     // タブ  
7.     NewTab := TRibbonPage.Create(Self);  
8.     NewTab.Parent := Ribbon1;  
9.     NewTab.Caption := 'New Tab';  
10.     Ribbon1.AddTab(NewTab);  
11.   
12.     // グループ  
13.     NewGroup := TRibbonGroup.Create(Self);  
14.     NewGroup.Parent:= NewTab;  
15.     NewGroup.Caption := 'New Group';  
16.     NewTab.AddGroup(NewGroup);  
17.   
18.     // アクションバンド  
19.     NewGroup.ActionClient := ActionManager1.ActionBars.Add;  
20.     NewGroup.ActionClient.ActionBar := NewGroup;  
21.   
22.     // ボタン  
23.     ActClientItem := NewGroup.ActionClient.Items.Add;  
24.     ActClientItem.Action := ActionManager1.Actions[0];  
25. end;  

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;