TActionList : comment connaître le composant qui a appelé l'action

Bonjour,

Voilà, j'aimerais mettre dans un DataModule un TActionList avec un certain nombre d'action qui pourront être utilisée sur différent composant de différentes Form.

Mais, le problème qui se pose, est : Mais sur quel composant dois-je effectuer l'action ? Et ça je ne le vois nul part...

Quelqu'un sait-il comment le faire ?

Merci d'avance

JS

Bonjour,

Citation:

---

Envoyé par Jon Shannow

Mais, le problème qui se pose, est : Mais sur quel composant dois-je effectuer l'action ? Et ça je ne le vois nul part...

---

C'est le composant qui choisit l'action, si je puis dire... ;)
La propriété Action des composants permet de savoir quelle action sera réalisée...
Elle est définie au niveau de l'ancêtre TControl, donc bon nombre de composants la possède : TButton, TEdit, TMenu, etc, etc.

Code:

---

1 2	Button1.Action := Action1; MenuItem1.Action := Action1;

---

Bonjour et merci d'avoir répondu.

J'ai du mal poser la question.
Comment définir l'action associée pour un composant, ça je sais. Mais, dans la procédure "Execute" de l'action elle-même, comment je sais sur quel composant je dois l'appliquer ?

Exemple : Dans une fiche, j'ai une dizaine de TEdit, je crée une action permettant de mettre à taRightJustify la propriété Alignment d'un TEdit. Je voudrais que cette action puisse être réalisée sur tout les TEdit de la Form.
Dans la procedure Execute de l'action, comment je peux savoir sur quel composant je dois appliquer l'action ?

C'est ça le problème !

JS

Bonsoir

Je tape tel que cela me vient :

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Action1Execute(Sender: TObject); var Edit: TEdit; begin if assigned(sender) and sender.ClassNameIs('TEdit') then begin Edit := TEdit(Sender); Edit.Alignment:=taRightJustify; end; end;

---

C'est ce que tu souhaites faire ?

Citation:

---

Envoyé par Jon Shannow

J'ai du mal poser la question.

---

Et je l'ai mal comprise... ;)
Mais @mtournay a donné la réponse.
J'aurais juste écrit if Assigned(Sender) and Sender is TEdit then begin

Merci, mais hélas, c'est la première chose que j'ai essayé. Et le résultat est que le sender est l'action même ! :(

Bref, ce n'est pas le composant appelant mais le composant exécutant. Et l’exécutant, c'est l'action et non le TEdit ou le TButton qui déclenche l'action !

Donc, toujours pas de solution.

Citation:

---

Envoyé par Jon Shannow

Bref, ce n'est pas le composant appelant mais le composant exécutant. Et l’exécutant, c'est l'action et non le TEdit ou le TButton qui déclenche l'action !

---

Oui, mais l'action, elle a des chances d'avoir les propriétés qui permettront de savoir quel est le composant qui est à l'origine du déclenchement ! :zoubi:
Cela donne en 2 minutes chrono : :)

Code:

---

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

procedure TForm1.Action1Execute(Sender: TObject); var Act: TAction; Edt: TEdit; begin if Assigned(Sender) and (Sender is TAction) then begin Act := TAction(Sender); if Assigned(Act.ActionComponent) and (Act.ActionComponent is TEdit) then begin Edt := TEdit(Act.ActionComponent); Edt.Alignment := taRightJustify; end; end; end;

---

Nom d'un Schreumeuleumeuleu ! J'ai cherché pendant des heures un truc de ce genre, j'ai regardé la doc LCL sur le TAction et voilà que je ne descend pas assez loin dans les héritages et loupe complètement le truc que je cherche, ActionComponent dans TBasicAction !

Mais quel GMT je fais, nom d'un p'tit bordel à queue... :mur:

Allez-y, moquez-vous ... :toutcasse:


:cry:


En tout cas, merci beaucou à toi Ph. B. et également à toi mtournay.

JS

de rien même si j'étais légèrement à coté de la plaque ... bon en même temps, j'ai répondu vite en me basant sur ce que je fais avec un ensemble de boutons où tous les onClick appellent la même procédure.

Et à l'avenir, je penserai à (Sender is TAction) pour tester le type d'objet sans avoir besoin de trans-typer :) merci Ph.B