Ver Mensaje Individual
  #3  
Antiguo 23-03-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita