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