Acessar pelo botão esquerdo popmenu

Delphi

22/03/2012

Gostaria de uma ajuda, preciso que ao clicar em um determinado botão com lado esquerdo do mouse ele abra o Menu. E não com botão direito. Agradeço...
Adolpho Zaneti

Adolpho Zaneti

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

22/03/2012

Tente o seguinte: no envento onMouseDown do botão (Button1 no exemplo), adicione o seguinte código:

Button1.PopupMenu.Popup(X + Button1.Left, Y+Button1.Top);

Você verá que o popup não vai aparecer no exato local em que você clicou, então adicione fatores de correção ao X e ao Y, conforme necessário.

Boa sorte.
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

22/03/2012

Corrigindo/melhorando:

if Button = mbLeft then
Button1.PopupMenu.Popup(X + Button1.Left, Y+Button1.Top);

Se o botão clicado for o esquerdo.
GOSTEI 0
POSTAR