Réutilisation du Sender (TObject)

**matech** · 01/03/2006, 23h08

Bon j'explique rapidement mon problème
J'utilise un menu et je souhaite (pour des raisons diverses) regrouper l'évènement clic de ces menus en une seule procédure

Code :

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

1
2
3
4
procedure TFrmPrincipale.ActionMenu(Sender: TObject);
begin
  // Action en fonction de l'élément du menu cliqué
end;

Je pense que pour savoir sur quel bouton j'ai cliqué il faut que j'utilise la variable Sender
Malheureusement je n'arrive pas à la réutiliser

Ma question est donc de savoir si je suis parti sur une bonne base et comment procéder si c'est le cas ?

**Ben_Le_Cool** · 01/03/2006, 23h20

Tu peux donner a te MenuItems des tags differents. Il suffit alors de tester Sender.Tag

**matech** · 01/03/2006, 23h37

Oui mais non
J'arrive pas à accéder à la méthode Tag à partir du Sender

Voici les éléments auquel j'ai accès à partir du Sender
- Create (constructeur)
- ClassName (fonction)
- MethodName (fonction)

**e-ric** · 01/03/2006, 23h50

Salut

Tu peux effectivement réutiliser un gestionnaire d'événement mais sache que cela peut compliquer la maintenance (il faudra en effet se rappeler que le gestionnaire est partagé). Evites la propriété Tag dans la mesure du possible.

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
20
 
// Attention : gestionnaire partagé
procedure TFrmPrincipale.ActionMenu(Sender: TObject);
begin
  // Action en fonction de l'élément du menu cliqué
  if Sender = Button1 then
  begin
   // convertit Sender à l'aide de as si besoin est d'agir sur le sender
   // (Sender as TButton).Caption par exemple
 
  end
  else if Sender = Button2 then
  begin
 
  end
  else // jusqu'à plus soif
  begin
 
  end;
end;