Hola Ibidi.
Si te has explicado perfectamente.
Código Delphi
[-]
function ProxLevelCodigo(TV: TTreeView): string;
var
v: Integer;
begin
Result:= '';
if TV.Selected.Count > 0 then
begin
Result := TClase(TV.Selected.Item[TV.Selected.Count-1].Data).Level;
v:= StrToInt(Copy(Result, 3, MaxInt));
Inc(v);
Result:= Copy(Result,1,3)+IntToStr(v)
end
end;
Ejemplo de llamada:
Código Delphi
[-]
...
Caption:= ProxLevelCodigo(tvCatalogo);
...
La función devuelve la cadena conformada por [level]+[ultimo_código_anterior+1] si el nodo actualmente seleccionado tiene algún hijo, o cadena vacía de lo contrario.
Saludos.
