dxNavBar1做导航菜单,类XP分组显示效果(23) - 涂磊

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;