Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Obtener posicion del cursor sobre una imagen (https://www.clubdelphi.com/foros/showthread.php?t=19970)

joni 01-04-2005 13:14:12

Obtener posicion del cursor sobre una imagen
 
Hola, me gustaria asociar al evento OnMouseClicl de un tipo TImage una funcion que me diga el pixel de la imagen sobre el que pinche.

Un saludo, gracias.

Neftali [Germán.Estévez] 01-04-2005 15:26:03

En lugar de con el evento OnClick prueba con los eventos OnMouseDown/OnMouseUp que te devuelven X e Y con las coordenadas donde se ha pulsado el click.

joni 01-04-2005 16:32:58

Yo uso el metodo getcursorpos(), pero eso me devuelve las coordenadas de la pantalla, necesito las coordenas dentro del form.

vtdeleon 01-04-2005 21:05:54

Como ya escribio Neftalo\i:

Cita:

Empezado por Neftali
En lugar de con el evento OnClick prueba con los eventos OnMouseDown/OnMouseUp que te devuelven X e Y con las coordenadas donde se ha pulsado el click.

Con dos labels has esto:
Código Delphi [-]
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption:=inttostr(x);
  Label2.Caption:=inttostr(y);
end;


La franja horaria es GMT +2. Ahora son las 23:35:04.

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