Olá pessoal, aqui tem o código dos exemplos do vídeo abaixo, que demostra como
utilizar os efeitos de popupMenu em clique de botões.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | // Em Baixo a Esquerda procedure TForm1.ButtonPopup2Click(Sender: TObject); begin with TButton(Sender).ClientToScreen(point(0, TButton(Sender).Height)) do PopupMenu1.Popup(X, Y); end; // Superior Esquerdo procedure TForm1.ButtonPopup3Click(Sender: TObject); begin with TButton(Sender).ClientToScreen(point(0, 0)) do PopupMenu1.Popup(X, Y); end; // Inferiro Direito procedure TForm1.ButtonPopup4Click(Sender: TObject); begin with TButton(Sender).ClientToScreen(point(TButton(Sender).Width, TButton(Sender).Height)) do begin PopupMenu1.Popup(X, Y); end; end; |
Dica em Vídeo
Baixe os fontes!
[download id=”3032″]
Dúvidas ou Sugestões? Deixe o sue comentário!
