Discussion :

[Jon Shannow]

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

[Ph. B.]

Bonjour,

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 :

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

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

[Jon Shannow]

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

[mtournay]

Bonsoir

Je tape tel que cela me vient :

Code :

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

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 ?

[Ph. B.]

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

[Jon Shannow]

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.

[Ph. B.]

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 !
Cela donne en 2 minutes chrono :

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
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;

[Jon Shannow]

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...

Allez-y, moquez-vous ...





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

JS

[mtournay]

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