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;
...
procedure TForm1.MenuItemGetCaptionClick(Sender: TObject);
var
v: Variant;
begin
v:= GetPropertyValue(PopupMenu1, 'Text');
if not VarIsClear(v) then
ShowMessage(v);
end;
procedure TForm1.MenuItemGetTagClick(Sender: TObject);
var
v: Variant;
begin
v:= GetPropertyValue(PopupMenu1, 'Tag');
if not VarIsClear(v) then
ShowMessage(v);
end;
Saludos.