Menu em Botão
01/02/2006
0
Alguém pode me ajudar numa dúvida que ta acabando comigo...
Como eu faço para criar um menu em um botão tipo, no windows xp quando clicamos no botão ´Modo de Exibição´ ele mostra alguns itens em um menu, como faço pra fazer um igual aquel?
Paullsoftware
Posts
01/02/2006
Massuda
01/02/2006
Paullsoftware
não, é button ou bitbtn ....
01/02/2006
Massuda
01/02/2006
Paullsoftware
xiiiii foi mal massuda desculpa, mais vc sabe como faço pra gerar um menu semelhante, não quero usar toolbar quero criar em um botão normal mesmo...
01/02/2006
Michael
A classe [b:ad6dd3fdb0]TPopupMenu [/b:ad6dd3fdb0]possui o método [b:ad6dd3fdb0]PopUp[/b:ad6dd3fdb0], que server para exibir o menu em uma determinada posição da tela.
É importante ressaltar que [b:ad6dd3fdb0]X[/b:ad6dd3fdb0] e [b:ad6dd3fdb0]Y[/b:ad6dd3fdb0] são as coordenadas relativas à tela, e não do form onde o controle está. Para obter esses valores, deve-se usar o método [b:ad6dd3fdb0]ClientToScreen[/b:ad6dd3fdb0], da classe [b:ad6dd3fdb0]TControl [/b:ad6dd3fdb0] , que faz a ´transladação´ das coordenadas.
Então, para exibir corretamente o menu, vc pode usar o código abaixo:
var P1, P2: TPoint; begin P1.X := Button.Left; P1.Y := Button.Top + Button.Height; P2 := ClientToScreen(P1); PopupMenu.PopUp(P2.X, P2.Y); end;
[]´s
01/02/2006
Michael
Ah, e meu nome é [b:442b054c80]Michael[/b:442b054c80], e não Michel... ;-)
[]´s
06/02/2006
Paullsoftware
OK!
Clique aqui para fazer login e interagir na Comunidade :)