Drag&Drop entre dos TreeView

[ceocarbajal]

Hola Foro !!,

Una duda que quiero consultarles, tengo dos TTreeView, donde busco arrastrar una hoja del TreeView2 al TreeView1, y quiero que se coloque donde "el usuario la suelte".

Es decir tengo el TreeView1, con la siguiente información

-InfoNivel0.1
---InfoNivel1.1.a
---InfoNivel1.1.b
---InfoNivel1.1.b
-InfoNivel0.2
---InfoNivel1..2.a
-InfoNivel0.3
---InfoNivel1..3.a
---InfoNivel1..3.b
---InfoNivel1..3.c
-InfoNivel0.4

y el TreeView2, lo tengo con una información así
-InfoOrigen.1.a
-InfoOrigen.1.b
-InfoOrigen.1.c

Si el usuario, arrastra del TreeView2, al TreeView1, por ejemplo el InfoOrigien.1.b, que se incerte debajo del "Nivel0", que le corresponde, el arbol no acepta mas alla del Nivel1 (son dos niveles), por ende supongo que tendría que ubicar la rama del nivel 0, que le corresponde...

He estado buscando con la propiedad Selected, pero no logro ubicarlo, especialmente cuando el Nodo Padre (Ej: InfoNivel0.4) se encuentra vacío.

Agradezco vuestros comentarios y sugerencias para lograr esta funcionalidad. Desde ya muchas gracias.

[[Lepe]]

el TTreeview tiene este método:

Código Delphi [-]
function GetNodeAt(X, Y: Integer): TTreeNode;

Supongo que en el evento OndragOver puedes hacer uso de este método para averiguar donde se está arrastrando.

AVISO: Si no hay nodo debajo del raton devolverá nil. Ejemplo de uso:

Código Delphi [-]
var p : TTreenode
begin

p := ttreview1.getnodeat (x,y) ;
if p <>nil then
  // insertar nodo como hijo o como "Silbing"
else
 accept := false;

Este código iria en el Evento OndragOver del treview que recibe el nodo, así no aceptará el nodo si lo suelta en cualquier sitio. Siempre puedes acotar donde ha de soltar el nodo colocando Accept a false en el momento adecuado.

Saludos;