Ayuda con PopupMenu

[JerS]

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

[Gydba]

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!!

[roman]

El control Shape no tiene como propiedad el PopUpMenu.


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


type
TMiShape = class(TShape)
published
property PopupMenu;
end;


o desprotegerla al vuelo para asignarle el menú:


type
THackShape = class(TShape);

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


// Saludos