01]设计时添加分组和项
02]也可以 用代码添加分组，项和事件
03]窗口折叠显示
04]设计时，更改样式
05]添加 小图标，显示设置
06]添加 大图标，显示设置
07]分组收缩菜单
08]关联动作事件

01]设计时添加分组和项

 从 右边 的 项 鼠标 拖到 左边的 分组 内

然后修改 分组/项的 名称Caption

 02]也可以 用代码添加分组，项和事件

procedure TForm5.Button1Click(Sender: TObject);
var
tempitem:TdxnavbarItem;
tempgroup:Tdxnavbargroup;
begin

tempgroup:=dxNavBar1.Groups.Add;  //  添加分组
tempgroup.Caption := '中国地盘';
tempitem:=dxNavBar1.Items.Add;   //添加 项
tempitem.Caption:= '钓鱼岛';
//tempitem.OnClick := belongtochina;
//tempitem.OnClick:= button1.OnClick; //绑定事件
tempgroup.CreateLink(tempitem);

tempitem:=dxNavBar1.Items.Add;
tempitem.Caption := '台湾';
//tempitem.OnClick := belongtochina;
tempgroup.CreateLink(tempitem);
end;

 

03]窗口折叠显示

 

dxNavBar1.OptionsBehavior.NavigationPane.Collapsible设为true后，就可折叠显示

 dxNavBar1.OptionsBehavior.NavigationPane.Collapsed设为true，即折叠

04]设计时，更改样式

05]添加 小图标，显示设置

 

 06]添加 大图标，显示设置

07]分组收缩菜单

 08]关联动作事件

拖一个ActionList1，双击它，添加Action

 

procedure TForm1.dxBarManagerTodxNavBar;
var
  i, j: Integer;
  item: TdxBarSubItem;
  group: TdxNavBarGroup;
  bar: TdxNavBarItem;
begin
  dxNavBar1.Groups.Clear;
  for i := 0 to dxBarManager1Bar1.ItemLinks.Count - 1 do
  begin
    item := TdxBarSubItem(dxBarManager1Bar1.ItemLinks[i].Control.Item);   
    group := dxNavBar1.Groups.Add;
    group.Caption := item.Caption;
    for j := 0 to item.ItemLinks.Count - 1 do
    begin
      bar := dxNavBar1.Items.Add;
      bar.Caption := item.ItemLinks.Items[j].Caption;
      bar.OnClick := dxNavBarItemClick;
      bar.SmallImageIndex := 0;
      group.CreateLink(bar);
    end;
  end;
end;