Obtener posicion del cursor sobre una imagen

[joni]

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]]

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]

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

[vtdeleon]

Como ya escribio Neftalo\i:

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;