FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
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..!!! |
#3
|
|||
|
|||
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..!!! |
#4
|
|||
|
|||
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 |
#5
|
||||
|
||||
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 |
#6
|
||||
|
||||
Como escriben por ahí picando al componente, en este caso el image1, por ejemplo, luego al procedimiento onmousemove y ahí en los parametros ves el X e Y. conviertes con inttostr(X) para pasarlo a por ejm un label y listo.
Label1.Caption := inttostr(X);
__________________
mg1821 |
|
|
|