Ayuda con PopupMenu

JerS · #1 12-10-2005

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

Gydba · #2 12-10-2005

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 · #3 12-10-2005

Cita:

Empezado por Gydba

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:

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