dxNavBar使用问题

闪闪棉花糖

于 2020-10-16 15:32:04 发布

阅读量778

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/hsqchdn/article/details/109117582

delphi 专栏收录该内容

39 篇文章

订阅专栏

本文档展示了如何在DevExpress dxNavBar组件中设置选项并允许用户选择。代码示例包括创建导航组、添加条目、设置ActionManager中的动作，并通过允许选择链接来启用用户交互。内容涉及界面布局和事件绑定，但未找到AllowAllUP属性，而是设置了dxNavBar1.AllowSelectLinks为True。

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


devExprss 中的dxNavBar 使用（设置后选中其中的一个）

看看有没有这个属性AllowAllUP，如果有设为true

没找到AllowAllUP属性，

dxNavBar1.AllowSelectLinks :=True，我设ViewStyle=VistaExplorerBarView

 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);