Posicion de un elemento en un TreeView

[ecfisa]

Hola.

Empezado por jocaro

...
Busco la manera de crear un elemento en un TreeView y que quede posicionado a continuación del elemento actual.

Ejemplo:

Código Delphi [-]
procedure TForm1.btnNuevoClick(Sender: TObject);
var
  node: TTreeNode;
begin
  // Agregar a continuación del Item actualmente seleccionado
  node := TreeView1.Items.Add(TreeView1.Selected, 'Nuevo'); 

 // Hacer a node el nuevo Item seleccionado
  TreeView1.Selected := node; 

  TreeView1.SetFocus;
end;

Saludos