Eliminar Subrayado al capturar MenuItem

[Lenny]

Jajajajaja, tienes toda la razon, editaste tu mensaje y me quede con el primero... y si, siempre estoy pendiente a vuestros comentarios y respuestas...

Abusando un poco y aprovechando el hilo, hay alguna forma de obtener la ruta completa incluyendo el SUBMENU???
Ejemplo:

ARCHIVOS
DOCUMENTOS - DOCUMENTOS - 2011
ARCHIVOS - ARCHIVO1
SALIR

que por ejemplo, si me voy al menu y sigo la ruta ARCHIVO/DOCUMENTOS/2011, al igual que con (Sender as TMenuItem) obtener la ruta completa y no solo 2011???

[ecfisa]

Hola Lenny.

En realidad la ecuación de Club Delphi es: nueva + pregunta = nuevo + hilo, pero dado que está total y estrechamente relacionada con la consulta anterior...

Una forma puede ser:

Código Delphi [-]
uses
  StrUtils;

function GetMenuItemsNames(MenuItem: TMenuItem): string;
var
  TS: TStrings;
  i : Integer;
begin
  Result:= '';
  if not MenuItem.IsLine  then
  begin
    TS:= TStringList.Create;
    try
      while MenuItem.Parent is TMenuItem do
      begin
        TS.Add(MenuItem.Caption + '/');
        MenuItem:= MenuItem.Parent;
      end;
      for i:= TS.Count - 2 downto 0 do
        Result:= Result + TS[i];
      Result:= AnsiReplaceStr(Result, '&', '');
      SetLength(Result, Length(Result) - 1);
    finally
      TS.Free;
    end;
  end;
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.MenuItemClick(Sender: TObject);
begin
  ShowMessage(GetMenuItemsNames(Sender as TMenuItem));
end;

Saludos.

[Lenny]

Estimado, muchas gracias nuevamente, y segun veo tampoco tienes horario al igual que yo... aunque me caigo a pedazos de sueño revisare lo que me propones... te pasaste muchisimas gracias!!! y solo por esta ves pregunte nuevamente en el mismo hilo, pero no volvere a hacerlo...

PD: Si fuera mina te daria un hijo!!! Jajajajajajajajaja...

[Lenny]

Bueno, aun no duermo ya punta de puras energeticas (RedBull, aun espero las alas, y nop, no me han salido cachos) el codigo quedo asi:

Esto quedo tal cual:

Código Delphi [-]
uses  StrUtils;

function GetMenuItemsNames(MenuItem: TMenuItem): string;
var
  TS: TStrings;
  i : Integer;
begin
  Result:= '';
  if not MenuItem.IsLine  then
  begin
    TS:= TStringList.Create;
    try
      while MenuItem.Parent is TMenuItem do
      begin
        TS.Add(MenuItem.Caption + '/');
        MenuItem:= MenuItem.Parent;
      end;
      for i:= TS.Count - 2 downto 0 do
        Result:= Result + TS[i];
      Result:= AnsiReplaceStr(Result, '&', '');
      SetLength(Result, Length(Result) - 1);
    finally
      TS.Free;
    end;
  end;
end;

Y el otro, un hibrido entre ambas respuestas:

Código Delphi [-]
procedure TInicio.N051020121Click(Sender: TObject);
begin
if AcroPDF1.Visible = False then
AcroPDF1.Visible:= True;
AcroPDF1.LoadFile(('\\Server\DOC\' + (GetMenuItemsNames(Sender as TMenuItem)+'.pdf')));
end;

En el fondo, hace exactamente la misma pega que el primero, pero la diferencia que adicionalmente (Todo creado por ecfisa, yo cero aporte por si acaso) si hay submenus de por medio nos da la ruta completa y no sol el MenuItem como el primer codigo...Ahora, con la del flojo (y practico, tratando de ahorrar algunas lineas de codigo), estoy viendo la forma de poder cargarlo al MainMenu, para no tener que por cada MenuItem colocar el codigo, pero esa seria otra pregunta si es que no puedo sacarlo... espero que sip.Gracias nuevamente ecfisa, siempre al pie del cañon, te pasaste!!!