¿Cómo mover Scrollbar durante un DragOver?

[[Lepe]]

Mas o menos puedes enfocarlos así:

Código Delphi [-]
 if RealizandoDragDrop then
 if (Y > frmppal.clientHeight -10) and // si estamos en el borde inferior
 (frmppal.VertScrollBar.Position >=10) then //si la barra no está al principio

    frmppal.VertScrollBar.Position:=frmppal.VertScrollBar.Position-10;
        // movemos la barra

Quizás tengas que poner un timer para que no corra mucho la barra.

EDITO: Esto lo pones en el FrameMouseMove

Un saludo

[roedecker]

No era exactamente eso lo que precisaba, pero ya lo he adaptado y lo he hecho funcionar. Gracias por encaminarme en la dirección correcta.

[dec]

Hola,

Empezado por roedecker

No era exactamente eso lo que precisaba, pero ya lo he adaptado y lo he hecho funcionar. (...)

¡Pues ya podías exponer cómo lo hiciste! ¿Quién sabe si la solución le vendrá bien a alguien?

[roedecker]

En el evento DragOver del TImage, siendo FrameMapa el TFrame:

Código Delphi [-]
//movimiento hacia la izquierda
  if (X < FrameMapa.HorzScrollBar.Position + 10) then
      FrameMapa.HorzScrollBar.Position := FrameMapa.HorzScrollBar.Position - FrameMapa.HorzScrollBar.Increment;

//movimiento hacia la derecha
  if (X > FrameMapa.clientWidth + FrameMapa.HorzScrollBar.Position - 10) then
      FrameMapa.HorzScrollBar.Position := FrameMapa.HorzScrollBar.Position + FrameMapa.HorzScrollBar.Increment;

//movimiento hacia arriba
  if (Y < FrameMapa.VertScrollBar.Position + 10) then
      FrameMapa.VertScrollBar.Position := FrameMapa.VertScrollBar.Position - FrameMapa.VertScrollBar.Increment;

//movimiento hacia abajo
  if (Y > FrameMapa.clientHeight + FrameMapa.VertScrollBar.Position - 10) then
      FrameMapa.VertScrollBar.Position := FrameMapa.VertScrollBar.Position + FrameMapa.VertScrollBar.Increment;

Los ifs dependen de la posición del correspondiente ScrollBar ya que las X e Y del TImage van cambiando según cambia la parte visible del mismo.

Lo curioso es que lo he implementado en otro formulario parecido (usan incluso los mismos TFrame y TImage), y mientras que en uno el movimiento tiene una velocidad razonable, en el otro va muy rápido.