PopMenu obtener propiedas de un objeto

[ecfisa]

Hola Commandant.

El último componente asociado al TPopupMenu (que lo mostró), lo podes obtener de la propiedad PopupComponent.

Código Delphi [-]
...
implentation

uses TypInfo;

function GetPropertyValue(puMenu: TPopupMenu; PropName: string): Variant;
var
  PInfo: PPropInfo;
begin
  with puMenu do
  begin
    PInfo:= GetPropInfo(PopupComponent.ClassInfo, PropName);
    if Assigned(PInfo) then
      Result := GetPropValue(PopupComponent, PropName);
  end;
end;
...

 (*  Llamadas de ejemplo *)

// muestra propiedad Text del componente asociado
procedure TForm1.MenuItemGetCaptionClick(Sender: TObject);
var
  v: Variant;
begin
  v:= GetPropertyValue(PopupMenu1, 'Text');
  if not VarIsClear(v) then
    ShowMessage(v);
end;

// muestra propiedad Tag del componente asociado
procedure TForm1.MenuItemGetTagClick(Sender: TObject);
var
  v: Variant;
begin
  v:= GetPropertyValue(PopupMenu1, 'Tag');
  if not VarIsClear(v) then
    ShowMessage(v);
end;

Saludos.