Drag&Drop entre dos TreeView

[[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;