Ayuda con PopupMenu
 

Buenas amigos de Club delphi!, yo ya se que puedo contar con ustedes, de verdad aqui esta la mejor comunidad de Delphi!.

Hoy les Escribo para preguntarles si es posible asignar un popupMenu a un TShape!

Muchas Gracias de Antemano :D

Hola,

El control Shape no tiene como propiedad el PopUpMenu. Podrías hacerte un componente propio que contemple esa propiedad. Sino podrías manejar el evento MouseDown del Shape y ejecutar el método PopUp del menu ( PopupMenu.Popup(PosX, PosY);)

Salutes!!

De hecho sí tiene la propiedad pero está protegida. Si hace un descendiente bastará que la publique:

Código Delphi [-]
type
  TMiShape = class(TShape)
  published
    property PopupMenu;
  end;

o desprotegerla al vuelo para asignarle el menú:

Código Delphi [-]
type
  THackShape = class(TShape);

begin
  THackShape(Shape1).PopupMenu := PopupMenu1;
end;

// Saludos