Tree View (problemas)

jymy788 · #1 19-08-2004

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.

roman · #2 19-08-2004

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

jymy788 · #3 19-08-2004

Gracias, simplemente, funciona sin problemas.

roman · #4 19-08-2004

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