Discussion :

[Jon Shannow]

Bonjour,

Je suis un GMT et je n'arrive pas à faire un truc qui doit être d'une simplicité crasse.

Dans une fiche, j'ai plusieurs images et un menupopup.

J'affecte le menu popup à toutes les images afin de pouvoir réaliser les mêmes actions sur chacune des images.

Mon problème est le suivant. Comment je sais depuis quelle image j'ai appelé le popup ?

Ça doit être tout con, mais je sèche.
Si quelqu'un peut me retirer cette épingle du pied, merci d'avance

A+
JS

[BeanzMaster]

Salut tu pourrais assigner une variable globale dans le onclick des TImage (je suppose) en te servant de la propriété Tag. Si tu à plusieurs TImage, le mieux serait de créer un tableau ou une liste d'objet à initialiser dynamiquement

genre un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Procedure Tmainform.Image1click(Sender : Tobject);
Begin
  aTag := TImage(Sender).Tag
  popupmenu1.PopUp(image1.left,image1.top);
End;  
 
Procedure Tmainform.Menuitem1click(Sender : Tobject);
Var 
 aBmp : TBitmap;
Begin
  aBmp := TBitmap.Create;
  Case aTag of
    0: aBmp.Assign(TImage1.Picture.Bitmap);
    1: aBmp.Assign(TImage2.Picture.Bitmap);
    2 :...
  end;
  { ou avec un tableau
    Var TImageContainer : Array[0..2] of TImage;
    aBmp.Assign(TImageContainer[aTag].Picture.Bitmap); }
 
  DoAction(aBmp);
  FreeAnNil(aBmp);
End;

[jurassic pork]

hello,
tu peux avoir l'info dans l'événement Popup de ta popup comme ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  showMessage(PopupMenu1.PopupComponent.Name);
end;

Ami calmant, J.P

[Jon Shannow]

Merci à tous les deux.

La solution de J.P. est la bonne.

Encore merci

JS