Jump to content

Recommended Posts

  • 1 month later...
Posted

Monteiro,

 

Ainda não comecei a implementar, mas minha ideia é utilizar a visible do menu para ativar ou desativar de acordo com as permissões.

 

Atenciosamente,

Possidônio Oliveira.

  • 1 month later...
Posted
Boa tarde.
 
Eu fiz da seguinte forma:
 
1 - Coloquei todos os itens do menu com visible false.
2 - Faço um select no banco de dados para verificar quais os menus que o usuário tem acesso.
3 - Chamo a procedure abaixo, que é recursiva (pois deve-se percorrer os itens e subitens do menu), e recebe como parâmetro um objeto da classe TUniMenuItem.
 
HabilitarMenu(MainMenu.Items);

 

procedure TFrmMain.HabilitarMenu(AMenu: TUniMenuItem);
var
  i: integer;
begin
  for i := 0 to AMenu.Count - 1 do
  begin
    if QryAux.Locate('descricao', AMenu.Caption, [loCaseInsensitive]) then
    begin
      AMenu.Visible := true;
    end;
 
   HabilitarMenu(AMenu);
  end;
end;

 

Atenciosamente,

Possidônio.

  • Upvote 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...