Comment connaitre la position d'un clic dans un Image ?

Bonjour,

Je souhaiterais obtenir les ordonnées et abcisses de mon clic dans un composant Image.
En fait je veux obtenir la position horizontale d'un composant image à l'endroit où je clic dessus.
J'espere que je suis clair.

J'ai essayer un truc du genre, mais ca marche pas :

var position : tpoint;
begin
x:=GetCursorPos(image2);
end;


Merci pour vos réponses.

C'est pas plutot GetCursorPos(Position) la bonne synthaxe ??

Face à ce genre de dilemme : je réfléchis 5 secondes avant de poster .
Je me dis "Hummmm Position.X me donne l'abscisse absolue du curseur. Si je veux avoir l'abscisse relatif à Image2 il suffit de retirer à Position.X la position gauchianesque de mon Image2 soit Image2.Left. On obtient Position.X-Image2.Left. Ensuite je regarde dans l'aide de delphi s'il existe pas une fonction toute faite."

En espérant que ca te permette de comprendre que le forum ne doit pas etre un réflexe incontrolé.

Oué Nico mais là il n'utilise pas la procédure OnClick du TImage.

C'est que je n'ai rien compris a ca question alors ! (d'ailleurs c'est pour ca que je ne reponds plus jamais aux questions du forum, le francais de codes-sources est aussi mauvais que l'équipe de France à l'euro Ahhaha  parlez pas des belges )

Pourtant ceci : "Je souhaiterais obtenir les ordonnées et abcisses de mon clic dans un composant Image." me semblait etre cela

m'enfin ...

par rapport aux problemes de francais , chouette un exemple tout frais , tout beau

http://www.delphifr.com/infomsg_PB-PROGRAME-SUIVI-FOURNISSEUR_1155970.aspx

bon j'arrete de troller

Non c'est moi qui me suis mal exprimé :

Oué Nico mais là il n'utilise pas la procédure OnClick du TImage => Traduction : s'il utilise là le MouseDown il n'utilise alors pas le OnClick comme il le souhaite. A moins que j'ai pas compris ce qu'il voulait : récupérer les coordonnées via le OnClick

Ben comme ca il a les deux

procedure TFormX.Image1Click(Sender: TObject);
var MP : TPoint;
begin
  GetCursorPos(MP);
  MP := (sender as TImage).ScreenToClient(MP);
end;

---

@ foxi : merci je connaissais pas cette astuce ...

Ciao

Merci à tous pour votre aide