Fórum Abrindo PopupMenu em posições diferentes em tempo de execução #510351
11/02/2015
0
Tenho um pequeno problema em relação ao PopupMenu, pois coloquei uma posição fixa para ele :
procedure TfPrincipal.Image5Click(Sender: TObject);
begin
PopupMenu1.Popup(555,149)
end;
Tenho varios botões em meu form principal, todos alinhados a esquerda; Tenho uma opção que deixa invisivel os botões, então a imagem onde faz o PopupMenu aparecer muda de lugar conforme habilito ou sesabilito alguns botões, sendo assim se eu colocar uma posição fixa para meu PopupMenu, ele não vai acompanhar minha imagem, teria como colocar na posição do PopupMenu algum comando para que ele acompanhe a 'imagem5' ?
procedure TfPrincipal.Image5Click(Sender: TObject);
begin
PopupMenu1.Popup(555,149)
end;
Tenho varios botões em meu form principal, todos alinhados a esquerda; Tenho uma opção que deixa invisivel os botões, então a imagem onde faz o PopupMenu aparecer muda de lugar conforme habilito ou sesabilito alguns botões, sendo assim se eu colocar uma posição fixa para meu PopupMenu, ele não vai acompanhar minha imagem, teria como colocar na posição do PopupMenu algum comando para que ele acompanhe a 'imagem5' ?
Jhon
Curtir tópico
+ 0
Responder
Posts
13/02/2015
Cauê Nishijima
Mostrar o popup de acordo com a posição do mouse não serve pra você?
Da seguinte forma:
Da seguinte forma:
procedure TfPrincipal.Image5Click(Sender: TObject); begin PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); end;
Responder
Gostei + 0
13/02/2015
Renato Rubinho
Buenas,
Pega a posição absoluta do objeto na tela.
Pega a posição absoluta do objeto na tela.
procedure TfPrincipal.Image5Click(Sender: TObject); var lPoint: TPoint; begin lPoint := Image5.ClientToScreen(Point(0,0)); PopupMenu1.Popup(lPoint.X, lPoint.Y); end;
Responder
Gostei + 0
14/02/2015
Jhon
Obrigado, deu certo.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)