Discussion :

[Esposito]

Peut-être ce sujet a t il déjà été posé mais je n'ai pas trouvé.
Je dispose de plusieurs composants auxquels j'ai associé une TAction construite dans les règles à partir de la TActionList.
Dans la méthode OnExecute de la TAction je souhaite récupérer le composant qui l'a déclenchée (TButton, TMenuItem, TPopupMenuItem...ou autre).
Jusque là en usant de Sender, Owner, GetParentName... je n'y arrive pas.

Précisons
Je dispose sur ma forme de 4 composants TImage d'un PopUpMenu avec un TMenuItem, et aussi d'une TAction qui sauvegarde une image.
J'associe à chaque Timage le même TPopUpMenu dans le lequel l'item TMensuItem est associé à la TAction dont l'objectif est la sauvegarde de l'image qui aura déclenché par le click gauche cette action. Comment récupérer dans la méthode OnExecute de la TAction le bon TImage qui l'a déclenchée afin de sauvegarder cette image là.

Merci pour votre aide.

PS. Tout cela pour éviter de créer autant de PopUpMenu et d'évènements OnClick que d'images et qui font en gros la la même chose

[Lung]

Utilise la propriété PopupMenu.PopupComponent.

[Esposito]

Au finale cela fonctionne en cumulant plusieurs niveaux

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
procedure TMainForm.SaveActionExecute(Sender: TObject);
var
   theImg:TImage;
  Act: TAction;
begin
  if Assigned(Sender) and (Sender is TAction) then
  begin
    Act := TAction(Sender);
    if Assigned(Act.ActionComponent) and (Act.ActionComponent is TMenuItem) then
    begin
      theC:=((Act.ActionComponent as TMenuItem).GetParentMenu as TPopUpMenu).PopUpComponent;
      If TheC is TImage then begin
        theImg:=theC as TIMage; 
        ShowMessage('Je sauvegarde l''image '+theImg.Name);
       // je sauvegarde ici theImg....
     end;
    end;
  end;
end;

Merci à tous les contributeurs de Developpez