Dual TreeView Form

[walrus]

Hola a todos. He hecho un form con dos TTreeView, a modo de la ventana habitual "dual list box", en la que se permite pasar elementos de un TTreeView a la otra, en cualquier sentido. El TTreeView de la izquierda representa el conjunto de elementos disponibles y el de la derecha el de los elementos seleccionados. Se puede mover elementos de varias maneras: drag&drop, doble clic y mediante los botones conocidos de "<", "<<", ">", ">>". Los TTreeView son de 2 niveles.

Me va todo bien, salvo que si paso un elemento a otro, y luego lo regreso al árbol primero, aparece en el último lugar del TTreeView. Los nodos del árbol están ordenados alfabéticamente mediante la propiedad ShortType=stText, pero no hace la ordenación cuando inserto un nodo en él.


vNdo := tv2.Items.AddObject(nil, ndo.Text, ndo.Data);


Quisiera que el árbol se reordenara pero no lo hace y tampoco sé cómo hacerlo. ¿Alguna idea?

Muchas gracías.