Utilisation TPopupMenu sur TImage

Bonjour,
Y a t'il une solution pour connaitre sur quel objet a été déclenché l'événement OnClick d'un menu popup.
Dans le PopupOnClick(TObject *Sender), le sender correspond au TPopup ou à l'objet sur lequel j'ai cliqué ?

Dans mon cas le PopupOnClick se déclenche sur un TImage, je voulais récupérer la taille de cette image de la façon suivante :

Code:

---

1 2 3 4 5

void __fastcall TFrm_Main::PpM_ProcNG2Click(TObject *Sender) { TImage *Image = (TImage *)Sender; x = Image->Width; }

---

Mais ça n' a pas l'air de fonctionner.

Merci de vos réponses et suggestions.

A+.

Salut Franck26,

Premièrement, met ton code dans les balises [CODE].

Deuxièment, va voir le post suivant: http://www.developpez.net/forums/sho...d.php?t=228386

Bonsoir,

On peut imaginer :
. Un fonction commune pour les OnMouseMove des TImage :
- dans le .h:

Code:

---

1 2 3 4 5 6

__published: // Composants gérés par l'EDI void __fastcall GenImageMouseMove(TObject *Sender, TShiftState Shift, int X, int Y); private: // Déclarations de l'utilisateur TImage *pIm;

---

- dans le .cpp:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void __fastcall TForm2::GenImageMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { TPoint ppoint; ppoint.x = X; ppoint.y = Y; if ( PtInRect(&rect, ppoint)!= 0 ) { this->pIm = (TImage*)Sender; } }

---

Dans l'inspecteur d'object, tous les évènements OnMouseMove des TImages doivent désigner GenImageMouseMove.
Dans le OnClick d'un des Items du PopupMenu, on peut écrire :
(ici l'item s'appelle 'Essai')

Code:

---

1 2 3 4 5

void __fastcall TForm2::Essai1Click(TObject *Sender) { ShowMessage(this->pIm->Name); }

---

Et, a priori, cela fonctionne ...

En espérant t'aider,
@ + ;)

Merci Crayon pour l'indication des balises, c'est vrai que c'est plus propre.
Sinon, je suis aller sur la discussion que tu m'as indiqué, mais je ne n'ai pas trouvé de solution pour mon cas.

Je cherche a obtenir un pointeur sur l'image sur laquelle j'ai cliqué pour déclencher mon popup.

Sunchaser, d'aprés ce que je comprend, tu me proposes de mémoriser le pointeur sur mon image quand je passe dessus avec la souris.
Donc je suppose que c'est parce que dans le code suivant, qui est déclenché par OnClick de mon Popup, le sender n'est pas un pointeur sur l'objet sur lequel j'ai cliqué, c'est ça ?

Code:

---

1 2 3 4 5

void __fastcall TFrm_Main::PpM_ProcNG2Click(TObject *Sender) { TImage *Image = (TImage *)Sender; x = Image->Width; }

---

Si c'est le cas, je vais utiliser ta solution. En revanche je n'ai pas compris l'utilité du code suivant :

Code:

---

1 2 3 4

if ( PtInRect(&rect, ppoint)!= 0 ) { this->pIm = (TImage*)Sender; }

---

C'est pour vérifier si la souris est bien sur l'image je suppose, mais que représente rect ?

Merci a tous les 2.
A+.

Arrfff ....ou ai-je la tête moi ?
:koi:


On peut écrire :

Code:

---

1 2	if ( PtInRect(((TImage*)Sender)->Canvas->ClipRect, ppoint)!= 0 )

---

a la place ...

Ok, merci.
Ca fonctionne, tout est résolu.
A+.