使用dxNavBar动态创建应用程序菜单

一、如何动态创建dxNavBar内容：

function TMain.GetAcitonByCaption(const aCategory,aCaption: string): Integer;

var

  i: Integer;

begin

  Result := -1;

  for i := 0 to ActionManager1.ActionCount-1 do

  begin

    if System.SysUtils.SameText(TAction(ActionManager1.Actions[i]).Category,aCategory) and

       System.SysUtils.SameText(TAction(ActionManager1.Actions[i]).Caption,aCaption)

    then

    begin

      Result := i;

      Exit;

    end;

  end;

end;

procedure TMain.FormShow(Sender: TObject);

var

  aBarItem:TdxNavBarItem;

  aBarGroup:TdxNavBargroup;

  iAction :Integer;

begin

  dxNavBar1.Items.Clear;

  dxNavBar1.Groups.Clear;

  //++++++++++++++++++++++++++++++++++++++++++++++++//

  aBarGroup:=dxNavBar1.Groups.Add;

  aBarGroup.Caption := '系统设置';

  aBarItem:=dxNavBar1.Items.Add;

  aBarItem.Caption:= '操作员管理';

  //aBarItem.OnClick:= button1.OnClick; //绑定事件

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]);

  aBarGroup.CreateLink(aBarItem); aBarItem:=dxNavBar1.Items.Add;

  aBarItem.Caption := '权限管理';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]); aBarGroup.CreateLink(aBarItem);

  aBarItem:=dxNavBar1.Items.Add;

  aBarItem.Caption := '报表设计中心';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]);

  aBarGroup.CreateLink(aBarItem);

  aBarItem:=dxNavBar1.Items.Add;

  aBarItem.Caption:= '系统退出';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]);

  aBarGroup.CreateLink(aBarItem);

  //++++++++++++++++++++++++++++++++++++++++++++++++//

  aBarGroup := dxNavBar1.Groups.Add;

  aBarGroup.Caption := '接口管理';

  aBarItem:=dxNavBar1.Items.Add;

  aBarItem.Caption := '学生基本信息接口';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]);

  aBarGroup.CreateLink(aBarItem);

  aBarItem:=dxNavBar1.Items.Add;

  aBarItem.Caption := '学生教学任务接口';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]);

  aBarGroup.CreateLink(aBarItem);

  aBarItem:=dxNavBar1.Items.Add; aBarItem.Caption := '学生教材缴费接口';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);      aBarItem.Action := TAction(ActionManager1.Actions[iAction]); aBarGroup.CreateLink(aBarItem);

  aBarItem:=dxNavBar1.Items.Add;

  aBarItem.Caption := '学生教材结算接口';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]);

  aBarGroup.CreateLink(aBarItem);

  //++++++++++++++++++++++++++++++++++++++++++++++++//

  aBarGroup := dxNavBar1.Groups.Add;

  aBarGroup.Caption := '帮助';

  aBarItem:=dxNavBar1.Items.Add;

  aBarItem.Caption := '用户手册';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]);

  aBarGroup.CreateLink(aBarItem);

  aBarItem.Caption := '关于……';

  iAction := GetAcitonByCaption(cds_Master.FieldByName(aBarItem.Caption).AsString,sMenu);

  aBarItem.Action := TAction(ActionManager1.Actions[iAction]);

  aBarGroup.CreateLink(aBarItem);

end;

二、实际生成一个左边的dxBar菜单例子：

procedure TMain.InitMenuItem(dxNavBar1:TdxNavBar);

var

  iAction: Integer;

  aTag:string;

  sMenu:string;

  dxNavBarGroup:TdxNavBarGroup;

  dxNavBarItem:TdxNavBarItem;

  dxNavBarLink:TdxNavBarItemLink;

  dxNavBarSeparator:TdxNavBarSeparator;

  cds_Master,cds_Delta:TClientDataSet;

  procedure InitdxNavBar;

  begin

    dxNavBar1.Groups.Clear;

    with dxNavBar1.DefaultStyles do

    begin

      GroupHeader.Font.Name := '微软雅黑';

      GroupHeader.Font.Style := [fsBold];

      GroupHeader.Font.Size := 9;

      GroupHeader.Font.Color := clBlack;

      Item.Font.Name := '微软雅黑';

      Item.Font.Style := [];

      Item.Font.Size := 9;

      Item.Font.Color := clBlack;

      ItemHotTracked.Font.Color := clBlue;

      ItemHotTracked.Font.Style := [fsUnderline];

      ItemPressed.Font.Color := clBlue;

      ItemPressed.Font.Style := [];

    end;

  end;

  procedure OpenMaster;

  var

    sqlstr:string;

  begin

    if gb_Czy_Level='-1' then

      sqlstr := 'select 项目名称,Id from 菜单项目表 where pId=-1 order by id'

    else

      sqlstr := 'select 项目名称,Id from view_操作员权限表 where 操作员编号='+

                quotedstr(gb_Czy_ID)+' and pid=-1 order by id';

    cds_Master.XMLData := dm.OpenData(sqlstr);

  end;

  procedure OpenDelta(const id:integer);

  var

    sqlstr:string;

  begin

    if gb_Czy_Level='-1' then

      sqlstr := 'select * from 菜单项目表 where pId='+IntToStr(id)+' and pId<>-1 order by id'

    else

      sqlstr := 'select * from view_操作员权限表 where 操作员编号='+quotedstr(gb_Czy_ID)+

                ' and 是否可用=1 and pId='+IntToStr(id)+' and pId<>-1 order by id';

    cds_Delta.XMLData := dm.OpenData(sqlstr);

  end;

begin

  cds_Master := TClientDataSet.Create(nil);

  cds_Delta := TClientDataSet.Create(nil);

  try

    InitdxNavBar;//设置一些格式，清除设计期的数据等

    OpenMaster;

    while not cds_Master.Eof do

    begin

      dxNavBarGroup := dxNavBar1.Groups.Add;

      dxNavBar1.Hint := cds_Master.FieldByName('项目名称').AsString;

      dxNavBarGroup.Caption := Copy(dxNavBar1.Hint,4,100);

      dxNavBarGroup.Visible := True;

      dxNavBarGroup.Expandable := True;

      dxNavBarGroup.Expanded := dxNavBarGroup.Index < 3;

      //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//

      OpenDelta(cds_Master.FieldByName('id').AsInteger);

      cds_Delta.First;

      aTag := cds_Delta.FieldByName('Tag').AsString;

      while not cds_Delta.Eof do

      begin

        sMenu := cds_Delta.FieldByName('项目名称').AsString;

        iAction := GetAcitonByCaption(cds_Master.FieldByName('项目名称').AsString,sMenu);

        if iAction<>-1 then

        begin

          //创建一个dxBarButton，相当于创建一个菜单项

          dxNavBarItem := dxNavBar1.Items.Add;

          dxNavBarItem.Action := TAction(ActionManger1.Actions[iAction]);

          dxNavBarGroup := TdxNavBarGroup(dxNavBar1.Groups.ItemByCaption(Copy(ActionManger1.Actions[iAction].Category,4,100)));

          dxNavBarLink := dxNavBarGroup.CreateLink(dxNavBarItem);

          dxNavBarGroup.LinksUseSmallImages := True;

          //==================加分隔线，但是不成功，不知道为何？==============//

          if (cds_Delta.FieldByName('Tag').AsString<>aTag) then

          begin

            aTag := cds_Delta.FieldByName('Tag').AsString;

            if (cds_Delta.RecNo<cds_Delta.RecordCount) then

            begin

              //dxNavBarSeparator := TdxNavBarSeparator(dxNavBar1.Items.Add);//

              //dxNavBarSeparator.Name := 'dxNavBarSeparator1';

              //dxNavBarLink := dxNavBarGroup.CreateLink(dxNavBarSeparator);

              //dxNavBarLink.DisplayName := '';//

            end;

          end;

          //==================================================================//

        end;

        cds_Delta.Next;

      end; //end while ...

      cds_Master.Next;

    end;

  finally

    cds_Delta.Free;

    cds_Master.Free;

  end;

end;

三、动态生成dxBarManager内容例子（即生成“主菜单”--MainMenu）：

procedure TMain.InitMenuItem(dxBarManager1: TdxBarManager);

var

  i,iAction: Integer;

  iNo,aTag:string;

  sName,sMenu,sCategory:string;

  dxBarSubItem:TdxBarSubItem;

  dxBarButton:TdxBarButton;

  dxBarItemLink:TdxBarItemLink;

  dxBarSeparator:TdxBarSeparator; //分隔线

  cds_Master,cds_Temp:TClientDataSet;

  procedure ReleasedxBarManager;

  var

    i:Integer;

  begin

    //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//

    dxBarManager1Bar1.ItemLinks.Clear;

    for i := dxBarManager1Bar1.ItemLinks.Count-1 downto 0 do

      dxBarManager1Bar1.ItemLinks.Delete(dxBarManager1Bar1.ItemLinks.Count-1);

    for i := dxBarManager1.ItemCount-1 downto 0 do

      dxBarManager1.Items[i].Free;

    for i := dxBarManager1.GroupCount-1 downto 0 do

      dxBarManager1.Groups[i].Free;

    dxBarManager1.Categories.Clear;

    dxBarManager1.Categories.Add('default');

    //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//

  end;

  procedure OpenMaster;

  var

    sqlstr:string;

  begin

    if gb_Czy_Level='-1' then

      sqlstr := 'select 项目名称,Id from 菜单项目表 where pId=-1 order by id'

    else

      sqlstr := 'select 项目名称,Id from view_操作员权限表 where 操作员编号='+

                quotedstr(gb_Czy_ID)+' and pid=-1 order by id';

    cds_Master.XMLData := dm.OpenData(sqlstr);

  end;

  procedure OpenDelta(const id:integer);

  var

    sqlstr:string;

  begin

    if gb_Czy_Level='-1' then

      sqlstr := 'select * from 菜单项目表 where pId='+IntToStr(id)+' and pId<>-1 order by id'

    else

      sqlstr := 'select * from view_操作员权限表 where 操作员编号='+quotedstr(gb_Czy_ID)+

                ' and 是否可用=1 and pId='+IntToStr(id)+' and pId<>-1 order by id';

    cds_Temp.XMLData := dm.OpenData(sqlstr);

  end;

begin

  ReleasedxBarManager;//清理dxBarManager

  cds_Master := TClientDataSet.Create(nil);

  cds_Temp := TClientDataSet.Create(nil);

  try

    OpenMaster;

    while not cds_Master.Eof do

    begin

      OpenDelta(cds_Master.FieldByName('id').AsInteger);

      if cds_Temp.RecordCount>0 then

      begin

        sCategory := cds_Master.FieldByName('项目名称').AsString;

        iNo := Copy(sCategory,1,2);

        sName := Format('dxBarSubItem%s',[iNo]);//取出【01.系统设置】中的01数字出来];

        sCategory := Copy(sCategory,4,100);

        //创建一个dxSubItem，相当于创建一个主菜单项

        dxBarSubItem := TdxBarSubItem.Create(Self);

        dxBarSubItem.Caption := sCategory;

        dxBarSubItem.Category := 0;

        dxBarSubItem.Visible := ivAlways;//ivNever;//

        dxBarSubItem.Name := sName;

        //放置在dxBar上

        dxBarItemLink := dxBarSubItem.BarManager.Bars[0].ItemLinks.Add;

        dxBarItemLink.Item := dxBarSubItem;

      end;

      //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//

      cds_Temp.First;

      aTag := cds_Temp.FieldByName('Tag').AsString;

      while not cds_Temp.Eof do

      begin

        sMenu := cds_Temp.FieldByName('项目名称').AsString;

        iAction := GetAcitonByCaption(cds_Master.FieldByName('项目名称').AsString,sMenu);

        if iAction<>-1 then

        begin

          if (cds_Temp.FieldByName('Tag').AsString<>aTag) then

          begin

            aTag := cds_Temp.FieldByName('Tag').AsString;

            if (cds_Temp.RecNo<>1) then //and (cds_Temp.RecNo<>cds_Temp.RecordCount) then

            begin

              dxBarSeparator := TdxBarSeparator.Create(Self);

              dxBarSeparator.ShowCaption := False;

              dxBarItemLink := dxBarSubItem.ItemLinks.Add;

              dxBarItemLink.Item := dxBarSeparator;

            end;

          end;

          //创建一个dxBarButton，相当于创建一个菜单项

          dxBarButton := TdxBarButton.Create(Self);//内存资源由Self负责管理

          dxBarButton.Caption := sMenu;

          dxBarButton.Action := TAction(ActionManger1.Actions[iAction]);

          dxBarButton.Category := 0;

          dxBarButton.Tag := TAction(ActionManger1.Actions[iAction]).Tag;

          //dxBarButton.Name := TAction(ActionManger1.Actions[iAction]).Name;//Format('dxBarButton_%-2d',[ii]);

          dxBarItemLink := dxBarSubItem.ItemLinks.Add;

          dxBarItemLink.Item := dxBarButton;

        end;

        cds_Temp.Next;

      end; //end while ...

      cds_Master.Next;

    end;

  finally

    cds_Temp.Free;

    cds_Master.Free;

  end;

end;

四、在实际项目中的一个截图：

五、那么能否从dxBarManager中导入内容到dxNavBar中呢？可以：

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;

使用dxNavBar动态创建应用程序菜单的更多相关文章

MFC 对话框中动态创建N级菜单以及响应事件
创建一个基于对话框的工程,工程名为CreateMenu 为该对话框增加一个文件菜单项和测试菜单项,如下图所示测试菜单项至少要有一个子菜单项在对话框属性中关联该菜单在resource.h中增加 ...
Delphi动态创建菜单
在程序运行中动态创建菜单,主要使用TMeunItem类,所有菜单的条目都是TMenuItem的一个实例. 打开Delphi7集成开发环境,在默认新建工程里,放置一个Button1按钮和MainMenu ...
EasyUI创建异步树形菜单和动态添加标签页tab
创建异步树形菜单创建树形菜单的ul标签 <ul class="easyui-tree" id="treeMenu"> </ul> 写j ...
tp根据数据库动态创建微信菜单
喻可伟的博客 tp根据数据库动态创建微信菜单 $button = array();$class = M('ucenter_menu')->limit(3)->select();//取出 ...
Delphi -- 创建桌面、发送到...、快速启动栏、开始菜单、程序菜单、右键菜单
{================================================================= 功能: 创建桌面.发送到....快速启动栏.开始菜单.程序菜单 ...
.NET使用Task动态创建多任务多线程并行程序计算Redis集群keys计算
Task是一个很好用的多任务处理类,并且通过Task可以对任务进行很好的控制. 下面将通过代码实现Redis集群在使用IServer.keys时通过多任务对多个服务器示例进行并行计算,并对返回key做 ...
VC++ 创建一个动态增长的层叠菜单
工作中需要创建一个动态增长的层叠菜单,类似于动态增长的多语言切换菜单,也是废了好大劲哪,分享一下,请交流参考. 类似效果图: 弹出子菜单各菜单项的意义一致,用ON_COMMAND_RANGE宏来统一实 ...
MFC小程序003------MFC使用WebBrowser组件，在对话框中创建滚动视图，动态创建一个静态文本控件并设置鼠标单击的消息响应
MFC小程序截图: 一.在MFC中简单使用WebBrowser的ActiveX插件的方法: 见博文: http://blog.csdn.net/supermanking/article/detail ...
Qt5 UI信号、槽自动连接的控件重名大坑（UI生成的槽函数存在一个隐患，即控件重名。对很复杂的控件，不要在 designer 里做提升，而是等到程序启动后，再动态创建，可以避免很多问题）
对Qt5稍有熟悉的童鞋都知道信号.槽的自动连接机制.该机制使得qt designer 设计的UI中包含的控件,可以不通过显式connect,直接和cpp中的相应槽相关联.该机制的详细文章见 http: ...

随机推荐

iOS (catagroy)类别
1:可以为类添加新的方法,但不能添加实例变量. 2:第一,无法向类中添加新的实例变量.类别没有位置容纳实例变量. 第二,名称冲突,即类别中的方法与现有的方法重名.当发生名称冲突时,类别具有更高的优先级 ...
Spark installation for windows
download spark from spark.apache.org download hadoop from hadoop.apache.org download hadoop.dll and ...
【Android 界面效果29】研究一下Android滑屏的功能的原理，及scrollTo和scrollBy两个方法
Android中的滑屏功能的原理是很值得我们去研究的,在知道这两个原理之前,有必要先说说View的两个重要方法,它们就是scrollTo 和scrollBy. Android View视图是没有边界的 ...
Java IO 技术之基本流类
流式IO 流(Stream)是字节的源或目的. 两种基本的流是:输入流(Input Stream)和输出流(Output Stream).可从中读出一系列字节的对象称为输入流.而能向其 ...
Speex回声消除代码分析
先说明下,这里的代码流程是修改过的Speex流程,但与Speex代码差异不大,应该不影响阅读. (1)用RemoveDCoffset函数进行去直流 (2)远端信号预加重后放入x[i+frame_s ...
【转】利用MVC模式开发Java应用程序[组图]
Java是一种面向对象的语言,是实现面向对象编程的强大工具.我们在实际编程中,应该运用并发挥其最大效能.但是,要利用面向对象编程思想,自己独立开发出好的Java应用程序,非凡是大.中型程序,并不是一 ...
PAT1028—— 人口普查
某城镇进行人口普查,得到了全体居民的生日.现请你写个程序,找出镇上最年长和最年轻的人. 这里确保每个输入的日期都是合法的,但不一定是合理的——假设已知镇上没有超过200岁的老人,而今天是2014年9月 ...
C# 输出24小时格式时间
比如 MessageBox.Show(DateTime.Now.ToString("yyyy-MM-dd hh:mm:ss")); 会输出 2014-4-3 5:08:4[1 ...
asp.net运算符之逻辑运算符以及其他运算符
逻辑(布尔型)运算符用于对boolean型的结果的表达式进行运算,运算的结果都是boolean型.其运算结果如下所示: 运算符运算例子结果 & AND(与) false&true ...
swift－自定义无限轮播图
一前言 1.之前一直在用OC编程,最近才开始接触使用swift就发现使用OC越来越不习惯,感觉已经爱上了swift. 2.这个自定义轮播图只是对之前OC版本进行了翻译,欢迎指正. 3.我决定一步步 ...

使用dxNavBar动态创建应用程序菜单

使用dxNavBar动态创建应用程序菜单的更多相关文章

随机推荐

热门专题