Busca de um item dentro de um menu
Galera, Boa Tarde,
Gostaria de saber como faço para que o Delphi me retorne o TMenuItem de uma certa string?
Por exemplo dentro do meu menu tem um item chamado Arquivo/Salvar, gostaria de apartir da string ´Salvar´ o Delphi me busca-se o TMenuItem Salvar, para que eu possa incluir um submenu nela. estou usando a sintaxe:
Pai:TMenuItem
Pai:=Menu.Items.Find(´Salvar´);
ele não da erro mas tbm não retorna nada em Pai.
Estou prescisando disto pois estou montando um menu em tempo de execução, e para isso eu leio um arquivo com a árvore do menu , tipo:
arquivos
arquivos/abrir
arquivos/salvar
arquivos/sair
editar
editar/copiar
editar/colar
...
então eu leo este arquivo, pego o nome do filho e do pai e adiciono no menu...
Galera, valeu a força, se alguem puder me ajudar ficarei muito grato...
até mais...
Gostaria de saber como faço para que o Delphi me retorne o TMenuItem de uma certa string?
Por exemplo dentro do meu menu tem um item chamado Arquivo/Salvar, gostaria de apartir da string ´Salvar´ o Delphi me busca-se o TMenuItem Salvar, para que eu possa incluir um submenu nela. estou usando a sintaxe:
Pai:TMenuItem
Pai:=Menu.Items.Find(´Salvar´);
ele não da erro mas tbm não retorna nada em Pai.
Estou prescisando disto pois estou montando um menu em tempo de execução, e para isso eu leio um arquivo com a árvore do menu , tipo:
arquivos
arquivos/abrir
arquivos/salvar
arquivos/sair
editar
editar/copiar
editar/colar
...
então eu leo este arquivo, pego o nome do filho e do pai e adiciono no menu...
Galera, valeu a força, se alguem puder me ajudar ficarei muito grato...
até mais...
Tales
Curtidas 0
Respostas
Biscalquini
10/04/2003
Vc deve se referir ao menu pelo seu nome e não pelo Caption.
Exemplo: Menu Arquivo - Caption: Arquivo - Name: Arquivo1
Então coloque
TMenuItem(FindComponent(NAME)).Visible:=FALSE;
Onde Name é a propriedade NAME do menu, no exemplo acima ficaria assim:
TMenuItem(FindComponent(Arquivo1)).Visible:=FALSE;
espero ter ajudado
Exemplo: Menu Arquivo - Caption: Arquivo - Name: Arquivo1
Então coloque
TMenuItem(FindComponent(NAME)).Visible:=FALSE;
Onde Name é a propriedade NAME do menu, no exemplo acima ficaria assim:
TMenuItem(FindComponent(Arquivo1)).Visible:=FALSE;
espero ter ajudado
GOSTEI 0