Processo de adicionar clique com o botão direito do mouse nos botões laterais das telas do sistema
Para adicionar o clique com o botão direito do mouse, é necessário a escrita das seguintes linhas de código:
Na unit FormPri:
* Alteração na assinatura da procedure AdicionarBotao.
Na procedure, devemos adicionar um PopupMenu que recebe 'nil' ao ser criado, seguindo o exemplo a seguir:
*Adicionar dentro da procedure AdicionarBotao a linha que faz o botão criado na lateral receber a propriedade de um PopupMenu e adicionar na chamada da procedure, o parâmetro adicionado no passo anterior.
Na procedure AdicionarBotao deve ser 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 PopUp .
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.
Resultado final da melhoria:
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.