Una duda sobre Menus

[roman]

Desconozco si hay una forma directa de hacerlo pero puedes obtener las coordenadas a patir de la propiedad MenuIndex de un ítem y recorriendo el menú hacia arriba con la propiedad Parent.

Por ejemplo, la siguiente función te devuleve una cadena caon las "coordenadas" del ítem que le pases:

Código Delphi [-]
function MenuCoords(Item: TMenuItem): String;
var
  Parent: TMenuItem;

begin
  Result := IntToStr(Item.MenuIndex + 1);

  Parent := Item.Parent;
  while Parent.MenuIndex <> -1 do
  begin
    Result := IntToStr(Parent.MenuIndex + 1) + '.' + Result;
    Parent := Parent.Parent;
  end;
end;

En el evento OnClick de los ítemes del menú puedes usar la función así:

Código Delphi [-]
Capton := MenuCoords(Sender as TMenuItem);

// Saludos