Acceder al data de un treeview

[ecfisa]

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.