dxBarManagerToDxNavBar方法

最新推荐文章于 2022-09-29 18:16:15 发布

hnxxcxg

最新推荐文章于 2022-09-29 18:16:15 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： UI 文章标签： integer

本文链接：https://blog.youkuaiyun.com/hnxxcxg/article/details/6312760

UI 专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一个将Delphi中的dxBarManager组件的子项转换为dxNavBar组件的过程。通过遍历dxBarManager的所有子项，并为每个子项创建相应的dxNavBarGroup及dxNavBarItem，实现了从导航栏到侧边栏的转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;