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