TreeView excepción

[jymy788]

Ya he visto que la gente ha leído mi problema y aun así no tengo solución. Yo le he seguido dando vueltas y supongo que una solución sería evitar de alguna manera el drag & drop fuera del "contenedor" del componente, pero tampoco he conseguido hacerlo así que, una vez más, si alguien me puede echar un cable... ES IMPORTANTE !!!

Gracias a todos.

[[Lepe]]

una solución sería evitar de alguna manera el drag & drop fuera del "contenedor"

en el dragOver pon : Accept := sender = source;
solo permitirá el arrastrar y soltar dentro del mismo Treeview.

El hecho de que casque es que el elemento seleccionado en el treeview sea nil. Comprueba siempre esa posiblidad:

Código Delphi [-]
if treview1.selected <> nil then //
begin
  treview1.selected.text ===> aqui no hay posible fallo, se puede acceder a Text sin problemas
end

Tienes que hacer esa comprobación tanto para el nodo Origen como Destino de la operacion "arrastrar y soltar"

Para ser más exactos, pon el código de Ondragdrop para localizar el fallo.

Saludos