FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
¿Cómo mover Scrollbar durante un DragOver?
Hola.
No estoy muy seguro de que éste sea el subforo adecuado para esta pregunta, pero allá voy: Estoy haciendo un formulario con un TFrame que a su vez tiene un TImage en ocasiones mayor que el propio frame, con lo que aparecen las consiguientes Scrollbars. Ahora bien, necesito hacer un Drag&Drop de un elemento del frame a otro punto del mismo, y me gustaría saber cómo podría mover las scrollbars mientras estoy realizando el DragOver, como, por ejemplo, hace el Explorador de Windows. Es decir, que arrastrando un elemento hacia los extremos del frame, se vaya desplazando la parte "visible" del mismo. Espero haberme explicado bien Gracias. Edito para añadir que programo en Delphi 7. Última edición por roedecker fecha: 27-09-2005 a las 10:51:53. |
#2
|
||||
|
||||
Mas o menos puedes enfocarlos así:
Quizás tengas que poner un timer para que no corra mucho la barra. EDITO: Esto lo pones en el FrameMouseMove Un saludo Última edición por Lepe fecha: 27-09-2005 a las 12:53:55. |
#3
|
|||
|
|||
Gracias
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.
|
#4
|
||||
|
||||
Hola,
Cita:
|
#5
|
|||
|
|||
Ok, ok, aquí va...
En el evento DragOver del TImage, siendo FrameMapa el TFrame:
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. |
|
|
|