Duvidas usando o TActionManager

Delphi

14/09/2004

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


Ricvictor

Ricvictor

Curtidas 0
POSTAR