Amigo el evento OnClick lo que te permite es efectuar alguna rutina al momento del click del mouse, ahora para que nos sirve?
Nos sirve x ejemplo para marcar el momento preciso donde se encuentra nuestro mouse al momento del click! (que es lo que vos estas necesitando), entonces lo que debes hacer es utilizar el OnClick con otra funcion que te de la posición donde se encuentra el mouse en ese momento!
Aquí es donde entra GetCursorPos que te aocnsejo que leas la ayuda del Borlan para entender bien su uso pero a groso modo te cuento que recive un objeto TPoint (que es un struct) con 2 variables en su interior... X e Y! Y al pasarlas x referencia ya sta!
Este código te lo va a explicar mejor:
NOTA: OJO! yo uso un TImage para contener la imagen! y calculo que vos debes ahcer lo mismo!
void __fastcall TForm1::Image1Click(TObject *Sender) // en el OnClick del Image1
{
TPoint P;//creo un objeto P del tipo TPoint
GetCursorPos(&P);//llamo a la funcion mandando el TPoint x referencia
ShowMessage(P.x);//muestro el valor que adquiere x
ShowMessage(P.y);//muestro el valor que adquiere y
}
Obviamente P.x y P.y son variables de tipo entero asi que puedes usarlas como tal en tu subrutina!
Spero te haya solucionado tu problema! Exitos!
