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;

  

posted @   delphi中间件  阅读(718)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示