Adicionar clique direito do mouse nos botões laterais do sistema

Esse guia tem o intuito de mostrar os processos para a adição de um PopUpMenu de cadastro e manutenção nos botões laterais.

 

                             

 

Alterações feitas na unit FormPri:

      * Alteração na assinatura da-Na procedure AdicionarBotao.

Na procedure,AdicionarBotao, foi adicionado um PopupMenu que recebe 'nil' ao ser criado, para que não quebre os botões que não receberem o PopUp. Segue o exemplo do que foi feito:

      *-Dentro da procedure AdicionarBotao a linha que faz o botão criado nanas laterallaterais receberrecebe a propriedade de um   um PopupMenu e adicionar na chamada da procedure, o parâmetro adicionadodo no passo anterior.PopUpMenu.

-Na procedure AdicionarBotao foi adicionado a propriedade de PopUpMenu para o botão, assim, a cada botão que for criado, vai receber essa propriedade para poder abrir o PopUpMenu .

Os passos até agora, não precisam ser refeitos, pois a FormPri é uma tela pai, portando, foi apresentado apenas como observação do que foi feito.

Na unit Princip:

  *-Criação da função que recebe como parâmetros o MenuItem do cadastro e da manutenção e o retorno da função deve ser um PopupMenu.

-Na procedure CriarBotoes, logo abaixo da declaração dos ícones usados nas laterais, é necessário criar uma função que vai receber o MenuItem do cadastro e da manutenção e vai retornar um PopUp.

-Nessa função é feita a criação dinâmica tanto do PopUp como dos itens dele para que não sejam valores fixos e sim, de acordo com o clique do mouse.

-A seguir está um exemplo de como a função pode ser feita: 

      *-Ainda no Princip, devemos passar como parâmetro da procedure AdiconarBotao, a nossa função criada no passo anterior e dentro dos parâmetros da nossa função, passar o MenuItem do cadastro e da manutenção do botão específico.

-A seguir, está uma demonstração de como deve ser adicionado os parâmetros na função AdicionarBotao, para que os botões, assim que criados, possam chamar o PopUp do cadastro e da manutenção dele mesmo.

 

Lembrando que essa melhoria não vai quebrar as outras telas que não utilizarem a melhoria pois foi feita de maneira dinâmica, então não utilizar a melhoria é uma opção, porém por ser uma melhoria interna, é interessante utiliza-la.