ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Popmenu desativar itens

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
daqdel
Aprendiz
Aprendiz


Registrado: Terça-Feira, 19 de Mai de 2009
Mensagens: 270

MensagemEnviada: Seg Out 14, 2019 4:13 pm    Assunto: Popmenu desativar itens Responder com Citação

Bom dia!
Como eu faço para que quando clicar num botão ele deixe todos os itens do meu ADVpopmenu enable = false?
para evitar de escrever todos itens um a um, como abaixo:
AdvPopupMenu_NFe.Items[1].Enabled:= false;
AdvPopupMenu_NFe.Items[2].Enabled:= false;

Gostaria que no click, já deixa-se todos em false
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11308

MensagemEnviada: Seg Out 14, 2019 5:39 pm    Assunto: Responder com Citação

Boa tarde,

Experimente mais ou menos dessa forma:

Código:
var
  i: integer;
  // ...
begin
  // ...
  for i := 0 to AdvPopupMenu_NFe.Items.Count - 1 do
    AdvPopupMenu_NFe.Items[i].Enabled := false;


Espero que ajude

_________________
Assinatura: https://www.imoveisemexposicao.com.br/imoveis-venda-guarulhos!v_galvão-residencial-apartamento
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10436
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Out 15, 2019 5:48 pm    Assunto: Responder com Citação

Com isto aqui você consegue interagir com o menu e criar as funções para interagir com o menu:


Código:
var
   j, k: integer;
begin
     ListBox1.Clear;
     for j := 0 to MainMenu1.Items.Count - 1 do
     begin
       ListBox1.Items.Add('** MENU PAI **');
       if MainMenu1.Items[j].Caption <> '-' then
          ListBox1.Items.Add('Nome: ' + MainMenu1.Items[j].Name + '  -  Caption: ' +MainMenu1.Items[j].Caption);//mostra menu pai
       ListBox1.Items.Add('** MENU FILHOS **');
       for k := 0 to MainMenu1.Items[j].Count -1 do
       begin
           if MainMenu1.Items[j].Items[k].Caption <> '-' then
              ListBox1.Items.Add('Nome: ' + MainMenu1.Items[j].Items[k].Name + '  -  Caption: ' +MainMenu1.Items[j].Items[k].Caption); //menus filhos
       end;
       ListBox1.Items.Add('------------------------------------------------------------------------');
     end;




bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB