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;