Discussion :

[dacid]

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.

[LadyWasky]

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 :

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

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 :

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

ActionList1Execute(Sender: TObject)

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

Code :

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

ActionList1Execute(Action:TBasicAction;varHandled:Boolean);

[LadyWasky]

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

Essaies ceci :

Code :

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

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

Bon dev

[dacid]

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 !