Procurar string em um mainmenu

Delphi

08/10/2004

Pessoal, tem jeito de procurar uma determinada string em um mainmenu?

Quero fazer o seguinte:

Tenho uma lista com os itens que o usuário tem acesso ao menu.

Queria fazer de um jeito que se existir os items que o usuário tem acesso(isto está numa tabela) fiquem visíveis no meu menu.

Obrigado,
Danilo Rogério


Danilorsa

Danilorsa

Curtidas 0

Respostas

Edineidaniel

Edineidaniel

08/10/2004

Danilo,

O q vc pode fazer eh especificar níveis de acesso em seu sistema...

Ex:
1 - Administrador (pode visualizar todos os cadastros);
2 - Usuário 01 (apenas cadastros rápidos...)
3 - Usuário 02 (cadastros e consultas)

E assim vai...
Crie um campo Nível de acesso na sua tabela, e toda vez q o usuário se logar no sistema vc valida o nivel de acesso dele e abilita ou naum as opções do menu...

t+
Edinei


GOSTEI 0
Biscalquini

Biscalquini

08/10/2004

Com esta linha vc procura pelo nome do componente.
If Acesso=´S´ Then
MenuItem(FindComponent(´String´)).Visible:=TRUE
Else
MenuItem(FindComponent(´String´)).Visible:=FALSE;

Valeu......


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

08/10/2004

Colega,

Procure no SourceForge por UserControl (QmD) que já tem tudo isso implementado e encapsulado em componentes.


GOSTEI 0
POSTAR