我如何限制对DevExpress标签区的访问？

Question

我有一个项目，在这个项目中，我将根据用户的权限限制对某个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;        

如何不让非管理员用户使用这个特殊的标签功能区？

Answer 1

你可能想使用TdxRibbonTab.Visible来显示标签。

另一个选择是上下文标签（在DevExpress帮助中搜索 "Ribbon上下文标签"）。

第三个选项是使用TdxBar.Visible属性来显示标签的一部分。

要了解DevExpress Bar Suite，也可以看看他们的演示。

Answer 2

同时确保启用禁用与标签上的按钮相关联的操作。即使标签页可能是不可见的，但分配给动作的快捷键仍然会工作。

Answer 3

你可以像下面的代码...

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