Como saber el Numero de Item pulsado de un TPopupMenu

[marto]

Wop!

Puedes montarte una función que recorra el array de la propiedad Items y retorne el indice. La función tendría que parecerse a esta

Código Delphi [-]
function IndiceItem(Menu, AItem: TMenuItem);
var
  i: integer;
begin
  i := 0;
  while (i < Length(Menu.Item))  and (AItem <> Menu.Item[i]) do
    Inc(i);
  if i < Length(Menu.Item) then
    Result := i
  else
    Result := -1;
end;

Y se usaría así

Código Delphi [-]
  Index := IndiceItem(MiMenu.Item, ItemABuscar);

No me suena que exista alún método o propiedad que te facilite la vida y no tengo ahora al aayuda a mano