Eliminar Subrayado al capturar MenuItem

[Lenny]

Muy buenas y ak estoy, molestando nuevamente... muchisimas gracias por la paciencia y cualquier ayuda...

Por diversos motivos necesito capturar el Caption del MenuItem precionado (De un MainMenu), todo ok, lo hago de esta forma:

Código Delphi [-]
 
Label1.Caption:= ('\\Server\'+TMenuItem(Sender).Caption+'.pdf');

Lo hace impecable, el problema es que cada vez que lo hago se coloca en alguna letra o numero un subrayado debajo de una letra, como ven en el codigo, la idea es que automaticamente habra un PDF formado por la ruta mas el nombre del MenuItem, tocnes al colocarse el famoso guion debajo de una letra (que es aleatorio) no me permite hacer lo que necesito... muchisimas gracias ante cualquier ayuda...

PD: Si coloco el nombre en ves de intentar capturar desde el MainItem no pasa esto... Utilizo Delphi 2010, Zeos, MySQL...

[ecfisa]

Hola Lenny.

Código Delphi [-]
uses
  StrUtils;

begin
  Label1.Caption:= AnsiReplaceStr('\\Server\' + (Sender as TMenuItem).Caption + '.pdf', '&', '');
  ...

Saludos.

[Lenny]

Muchas gracias ecfisa, como siempre al pie del cañon ayudandonos dia a dia...

Funciona ok, pero solo con el primer item del menu, el codigo lo tengo asi:

Código Delphi [-]
 
Label1.Caption:=('\\Server\DOC\' + Copy(TMenuItem(Sender).Caption, 2, MaxInt) + '.PDF');
AcroPDF1.LoadFile('\\Server\DOC\' + Copy(TMenuItem(Sender).Caption, 2, MaxInt) + '.PDF');
if AcroPDF1.Visible = False then
AcroPDF1.Visible:= True;

Esta de esa manera, para ir provando que lass rutas las escrive bien, lo que sucede con el primer registro del menu es esto:

Si tengo, por ejemplo, ARCHIVO/DOCUMENTO1/DOCUMENTO2/DOCUMENTO3, al hacer Click en DOCUMENTO1 me deja la ruta asi:

Código Delphi [-]
\\Server\DOC\DOCUMENTO1.PDF

Si hago Click en el documento 2 lo deja asi:

Código Delphi [-]
\\Server\DOC\OCUMENTO.PDF

OCUMENTO vuelve a colocar subrayado en alguna letra al azar y se come la primera letra...

Mil disculpas por molestar tanto, agradecido de cualquier ayuda de antemano... gracias!!!

[ecfisa]

Hola.

Es que la función que tenés que usar es la que te puse arriba:

Código Delphi [-]
  Label1.Caption:= AnsiReplaceStr('\\Server\' + (Sender as TMenuItem).Caption + '.pdf', '&', '');

Primero pusé la eliminación mediante Copy, enseguida, al escribirla, me dí cuenta que sólo evaluaba el primer caracter y la modifique. Pero tardé menos de un minuto en hacerlo... ¡ Vos si que sos rápido !

Ya que estoy te explico el por que de esa línea. Para lograr la combinacion de Alt + (una tecla) se utiliza el caracter '&' este es el que provoca el efecto de subrayado para destacar la letra que se debe presionar junto con Alt para ejecutar la acción asociada a ese menuitem. Por lo tanto al reemplazar el caracter '&', por '' se logra la cadena que deseas.

Saludos.

[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!!!