dxBarManagerToDxNavBar方法

 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;

 

TDxNavBar做导航菜单,类QQ的抽屉效果

 

添加组,添加项,并将项和组关联起来

tempitem:TdxnavbarItem;
  tempgroup:Tdxnavbargroup;
  tempgroup:=dxnavbar1.Groups.Add
 
      tempitem:=dxnavbar1.Items.Add;
   tempitem.Caption:=Caption;
   tempitem.OnClick:=button1.OnClick; //绑定事件
   tempgroup.CreateLink(tempitem);