我有一個項目,我將根據用戶的權限限制訪問某個DevExpress選項卡功能區。特別是,dxRibbon1tab1
應該只能由管理員用戶訪問。我寫了下面的代碼,但它不與可見屬性如何限制訪問DevExpress選項卡功能區?
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;
如何讓非管理員用戶使用此特殊選項卡功能區?
順便說一句:窗體類的內部方法只需使用Caption而不是Form1.Caption。 –
什麼是「水平」和它在哪裏/如何設置?你有沒有嘗試調試?在'if(level)...'上放置一個斷點,並查看'level'的值是什麼。它是「管理員」嗎? –
我剛試過它:「不工作」的意思是「不編譯」,因爲沒有'Enabled'屬性。快速瀏覽一下,我沒有看到其他方式來禁用功能區選項卡,但可以使用「可見」來隱藏它。 –