Posicion de un elemento en un TreeView

[roman]

Empezado por ecfisa

Código Delphi [-]
  // Agregar a continuación del Item actualmente seleccionado
  node := TreeView1.Items.Add(TreeView1.Selected, 'Nuevo');

Add agregará un nuevo nodo como último hermano del nodo, es decir, al final de la lista de hermanos. Por ello, el método sólo funcionará si el elemento seleccionado es el útimo hermano.

Empezado por jocaro

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

Prueba así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  NextNode, NewNode: TTreeNode;

begin
  NextNode := TreeView1.Selected.getNextSibling();

  if Assigned(NextNode)
    then NewNode := TreeView1.Items.Insert(NextNode, 'Nuevo') // El nodo seleccionado no es el último
    else NewNode := TreeView1.Items.Add(TreeView1.Selected, 'Nuevo'); // El nodo seleccionado es el último

  TreeView1.Selected := NewNode;
  TreeView1.SetFocus;
end;

LineComment Saludos