FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Saber la posición del mouse al interior de un canvas....
Hola a tod@s:
Estoy haciendo un componente que deciende de TImage y me gustaria agregarle un metodo donde pudiera recuperar la posicion donde esta el mouse sobre el componente. ya que quiero colocar la posicion en que se encuentra el mouse sobre el canvas. Parecido a lo que hace el Paint. Pero lo quiero hacer con el origen en la esquina inferior izquierda.. pero no encuentro como conocer la posicion del mouse... si alguien pudiese ayudar se le agradeceria muchiso... y los incluieria en mis oraciones
__________________
Cuando el sol ilumine tu camino... no dudes en recorrerlo veloz mente..!!! |
#2
|
|||
|
|||
para saber la posicion del mouse seria asi
var pos: tpoint; begin getcursorpos(pos); end; donde pos.x es el eje x y pos.y es el eje y
__________________
comemos.com.ar, todo el delivery de Capital Federal en un solo lugar |
#3
|
|||
|
|||
Lo que pasa es que ese me entraga la posicion del mouse dentro de la pantalla yo quiero obtenerlo solo para el Timage como lo hace por el metodo onmousemove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
pero por forma interna... en el fondo no se... por inventar algo... imagen.getmousepos(pos); x:=pos.x; y:=pos.Y; pero las posiciones asociadas al canvas del Timage no de la posicion de la pantalla
__________________
Cuando el sol ilumine tu camino... no dudes en recorrerlo veloz mente..!!! |
#4
|
|||
|
|||
onmousemove(Sender: TObject; Shift: TShiftState; X, Y: Integer);En el fondo como puedo conocer el contenido de las variables X e Y del objeto Timage asociado a este metodo
__________________
Cuando el sol ilumine tu camino... no dudes en recorrerlo veloz mente..!!! |
#5
|
|||
|
|||
con getcursorpos como dijiste tenes la posicion del cursor en pantalla pero si le restas la posicion del formulario y la del componente tenes la posicion del mouse en relacion a la del componente, osea x es igual a pos.x-(left+componente.left) y lo mismo para el eje x, pero con onmousemove podes guardar en una variable global el valor de x e y de ese procedimiento y eso es mas sencillo, pero es mejor el otro metodo, por lo menos para mi
saludos Ariel
__________________
comemos.com.ar, todo el delivery de Capital Federal en un solo lugar |
#6
|
||||
|
||||
Para convertir las coordenadas de pantalla a coordenadas relativas a un control (TImage en este caso), Delphi ya cuenta con un método: ClientToScreen.
// Saludos |
|
|
|