Duvidas usando o TActionManager
Olá colegas da comunidade ...
Montei um projeto utilizando para o menu o TActionManager ... sendo que agora eu incorporei nele um gerenciador de usuários ... aonde no Show do form principal defini uma rotina (antes, similar se usando o MainMenu)para ele (pelo menos eh essa a idéia) habilitar ou desabilitar o acesso ao menu pelo usuário ... mas não estou obtendo êxito ...
//Ativa ou desativa os itens do menu
for x:=0 to self.ComponentCount-1 do
if Self.Items[x] is TActionClientItem then
begin
if not (UFrmGerenciamento.CheckAcessoNoDisplay(TActionClient(Self.Components[x]).Tag)) and
(TActionClientItem(Self.Items[x]).Tag <> 0) then
TActionClientItem(Self.Items[x]).Visible:=False
else
TActionClientItem(Self.Items[x]).Visible:=True;
end
... desde já, agradeço pela força !!
Ricardo - Natal/RN
Montei um projeto utilizando para o menu o TActionManager ... sendo que agora eu incorporei nele um gerenciador de usuários ... aonde no Show do form principal defini uma rotina (antes, similar se usando o MainMenu)para ele (pelo menos eh essa a idéia) habilitar ou desabilitar o acesso ao menu pelo usuário ... mas não estou obtendo êxito ...
//Ativa ou desativa os itens do menu
for x:=0 to self.ComponentCount-1 do
if Self.Items[x] is TActionClientItem then
begin
if not (UFrmGerenciamento.CheckAcessoNoDisplay(TActionClient(Self.Components[x]).Tag)) and
(TActionClientItem(Self.Items[x]).Tag <> 0) then
TActionClientItem(Self.Items[x]).Visible:=False
else
TActionClientItem(Self.Items[x]).Visible:=True;
end
... desde já, agradeço pela força !!
Ricardo - Natal/RN
Ricvictor
Curtidas 0