Ayuda con PopupMenu

[roman]

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