dxBarManagerToDxNavBar方法

//根据dxBarManager 的菜单生成 TdxNavBar菜单
procedure TfrmMain.GenerateNavBarFromBarManager(dxBarManagerBar: TdxBar; dxNavBar:
  TdxNavBar);
var
  i, j: Integer;
  group: TdxNavBarGroup;
  dxBarItem: TdxBarSubItem;
  bar: TdxNavBarItem;
begin
  // 确保 TdxNavBar 清空
  dxNavBar.Groups.Clear;
  for i := 0 to dxBarManagerBar.ItemLinks.Count - 1 do
  begin
    if dxBarManagerBar.ItemLinks[i].Visible = true then
    begin
      if dxBarManagerBar.ItemLinks[i].Item is TdxBarSubItem then
      begin
        dxBarItem := TdxBarSubItem(dxBarManager1Bar1.ItemLinks[i].Control.Item);
        group := dxNavBar.Groups.Add;
        group.Caption := dxBarItem.Caption;
        for j := 0 to dxBarItem.ItemLinks.Count - 1 do
        begin
          if dxBarItem.ItemLinks.Items[j].Visible = True then
          begin
            if (dxBarItem.ItemLinks.Items[j].Item is TdxBarButton) then
            begin
              bar := dxNavBar.Items.Add;
              bar.Caption := dxBarItem.ItemLinks.Items[j].Caption;
              bar.OnClick := dxBarItem.ItemLinks.Items[j].Item.OnClick;
              bar.SmallImageIndex := 0;
              group.CreateLink(bar);
            end;
          end;
        end;
      end;
    end;
  end;
end;