Ver Mensaje Individual
  #8  
Antiguo 02-12-2011
Lenny Lenny is offline
Miembro
 
Registrado: jun 2007
Posts: 161
Reputación: 20
Lenny Va por buen camino
Talking

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

Última edición por Lenny fecha: 02-12-2011 a las 21:45:20.
Responder Con Cita