У меня есть проект, в котором я ограничу доступ к определенной ленте вкладки 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;
Как я держать пользователь, не администратор с помощью этой специальной вкладки ленты?
BTW: Внутри методов класса формы просто используйте 'Caption' вместо' Form1.Caption'. –
Что такое 'level' и где/как он установлен? Вы пытались отлаживать? Поместите точку останова на 'if (level) ...' и посмотрите, что такое значение 'level'. Это 'admin'? –
Я просто попробовал: «Не работает» означает «не компилируется», потому что нет свойства «Enabled». С быстрым взглядом я не видел другого способа отключить вкладку ленты, но вы можете скрыть ее с помощью 'Visible'. –