TAction -> Tag du composant qui le lance

Bonjour,

Tout est dit dans le titre... ..Mais voici plus de détails
J'ai plusieurs composants (tMenuItem) qui sont attachés au même tAction d'un tActionList
J'aimerais récuperer, dans le ActionList1Execute(Sender: TObject), les proprietés du composant "père".
Si je fait: ShowMessage(IntToStr(TComponent(Sender).Tag));
Il me retourne le tag du tAction, et non celui du tMenuItem.

Comment faire ?

Merci d'avacnce.

Ce ne serait pas plutôt le OnExecute du TAction qui te permettrait de faire ça ?

Au pire, ce que tu peux faire, c'est de modifier le Tag du TAction, dans TACtion.OnExecute , puis de récupérer celui-ci dans le TActionList.OnExecute :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure Form1.Action1Execute(Sender:TObject); begin Action1.Tag:=TComponent(Sender).Tag; end;   procedure TForm1.Action1Execute(Sender:TObject); begin Action1.Tag:=TComponent(Sender).Tag; end;   procedure TForm1.ActionList1Execute(Action:TBasicAction;varHandled:Boolean); begin ShowMessage(IntToStr(Action.Tag)); end;

---

Sinon,

Code:

---

ActionList1Execute(Sender: TObject)

---

Chez moi, cet événement n'est pas prototypé comme ça, mais plutôt comme ceci :

Code:

---

ActionList1Execute(Action:TBasicAction;varHandled:Boolean);

---

N'importe quoi, je raconte n'importe quoi ! :aie:

Essaies ceci :

Code:

---

1 2 3 4

procedure TForm1.Action1Execute(Sender: TObject); begin ShowMessage(IntToStr(Action1.ActionComponent.Tag)); end;

---

Bon dev ;)

Bonjour waskol,

En effet, je me suis trompé, ce n'est pas ActionList1Execute mais Action1Execute, j'ai été trop vite...

Merci pour la solution, ça marche !