TdxRibbon

TdxRibbon

var

dxBarManager1: TdxBarManager;
dxRibbon1: TdxRibbon;

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm2.cxButton1Click(Sender: TObject); var   item: TdxBarItemLink;   grp: TdxRibbonTabGroup;   tab: TdxRibbonTab;   toolbar: TdxBar;   btn: TdxBarButton;   i: Integer; begin   tab := dxRibbon1.Tabs.Add;   tab.Caption := 'tab1';   grp := tab.Groups.Add;   grp.Caption := 'grp1';   toolbar := dxBarManager1.AddToolBar;   grp.toolbar := toolbar;   for i := 1 to 2 do   begin     btn := TdxBarButton(dxBarManager1.AddItem(TdxBarButton));     //btn.imageIndex := 888;     btn.Caption := 'btn' + i.ToString;     item := toolbar.ItemLinks.Add;     item.Item := btn;     //btn.OnClick := nil;   end; end;