Problema con Popupmenu

[angelp4492]

Hola como están, quisiera saber como desplegar un popupmenu al pulsar un botón, si lo pongo en popupmenu del boton me lo despliega con el botonderecho del ratón, pero no consigo que al pulsar sobre un botón el popup se despliegue, a ver si alguien puede ayudarme Gracias.

[Neftali [Germán.Estévez]]

Puedes mostrarlo manualmente llamando al método PopUp.

AÑADO: Te he simplificado el ejemplo.

Código Delphi [-]
var
  PPoint, MPoint : TPoint;
begin
     MPoint.X := -1; 
     MPoint.Y := 0;
     PPoint := Self.ClientToScreen(MPoint);
     PopupMenu1.Popup(PPoint.x, PPoint.y);

[angelp4492]

Perfecto Muchas Gracias justo lo que necesitaba