Tree View (problemas)
 

Tengo un problema urgente de solucionar. Tengo un Tree View con sus nodos, sus funcionalidades.... (con todo). Cuando cargo los datos, tengo muchos nodos y si el árbol está extendido, no me deja arrastrar desde abajo del todo (por ejemplo) hasta arriba si los nodos de arriba no se ven en el árbol porque no cabe entero en pantalla (no sé si me explico, supongo que sí).

Alguien me puede decir cómo puedo solucionar este problema y que me permita arrastrar hasta zonas "invisibles" del arbolito de las narices? Vamos, que se mueva el scroll cuando yo intente seguir subiendo.

Intenta con este código en el evento OnDragOver del árbol:

Código Delphi [-]
const
  DistanceToScroll = 40;

begin
  if Y <= DistanceToScroll then
    SendMessage(TreeView1.handle, WM_VSCROLL, SB_LINEUP, 0)
  else if Y >= TreeView1.ClientHeight - DistanceToScroll then
    SendMessage(TreeView1.handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;

DistanceToScroll es la distancia al borde (superior o inferior) para que empiecen a desplazarse los nodos. Ajústala a la medida que te satisfaga.

// Saludos

Tree View (problemas)
 

Gracias, simplemente, funciona sin problemas.

No hay de qué.

Y te digo un pequeño secreto: este código no es de mi cosecha pero lo encontré rápidamente luego de leer tu consulta en los grupos de noticias de borland, simplemente buscando "Dragging nodes". El tercer enlace me dio la solución. Te lo comento porque si aún no los has visitado verás que en esos grupos hay también una gran cantidad de información muy útil.

;)

// Saludos