Mover la imagen con el raton, pero con API de Win32
Vi el Truco enviado por FER, este es parecido, pero utilizando la API.
Se puede utilizar para cualquier objeto que tenga los eventos Drag y sobre un Form, Panel, ScrollBox, etc.. Además sólo se utiliza el evento OnMouseDown del Objeto. En este ejemplo utilizaremos un TImage sobre un TScrollBox: Antes en las propiedades del TImage debemos colocar: Código:
DragMode en dmManual Código:
Cursor en crHandPoint
Nota: Al cambiar la posicion de la imagen, te daras cuenta que le disminuyo 15 pixels a cada posicion, es porque por lo general agarramos el objeto del punto medio del mismo y como el movimiento se basa en la posicion del mouse, la imagen en un primer momento se movería sobre la punta superior izquierda del puntero de mouse y no de donde lo agarraste. Sugiero que se debería disminuir la mitad de las dimensiones del objeto a cada posicion. |
La franja horaria es GMT +2. Ahora son las 11:30:59. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi