如何限制对DevExpress选项卡功能区的访问?

时间:2014-04-01 15:10:35

标签: delphi devexpress delphi-7

我有一个项目,我将根据用户的权限限制访问某个DevExpress标签功能区。特别是,只有管理员用户才能访问dxRibbon1tab1。我编写了以下代码,但它没有可见的属性

procedure Tfmenu.FormShow(Sender: TObject);
begin
  if (level) = 'admin' then
  begin
    dxRibbon1tab1.visible := True;
    fmainform.Caption:= 'this is form for admin';
  end
  else
  begin
    dxRibbon1tab1.visible:= False;
    fmenu.Caption:='this is a form for user'; 
  end;        
end;        

如何让非管理员用户不使用此特殊标签功能区?

3 个答案:

答案 0 :(得分:2)

您可能希望使用TdxRibbonTab.Visible来显示/隐藏标签。

另一个选项是上下文选项卡(搜索"功能区上下文选项卡"在DevExpress帮助中)。

第三个选项是使用TdxBar.Visible属性来显示/隐藏选项卡的部分。

要了解DevExpress Bar Suite,还可以查看他们的演示

答案 1 :(得分:2)

还要确保启用/禁用与选项卡上的按钮关联的操作。即使选项卡可能不可见,分配给操作的快捷键仍然有效。

答案 2 :(得分:0)

您可以像下面这样编码。.

 dxRibbon1Tab1.Groups[0].ToolBar.Visible:=false;