Cita:
|
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
08-03-2005
Modo Hilado