Gestion d'événements OnClick concernant les menus

**AL1986** · 17/08/2007, 10h41

Salut,
J'ai une question concernant la gestion des événements liés aux menus (les cliques précisément). J'aurai aimé savoir s'il est impératif de créer une méthode qui gère le clique (OnClick) pour chaque élément d'un menu. Quelques fois, il y des lignes de codes qui vont servir pour la gestion de deux éléments par exemple. Si je fais un événement pour chacun, il y aura du code redondant. Une solution serait peut être de mettre les bouts de code en commun dans une autre méthode qui sera appelée au moment opportun. Mais, ne pourrait-on pas traiter le pb d'une meilleure manière (en manipulant l'index par exemple) et comment ? Merci

**cmen76** · 17/08/2007, 10h59

Une bonne pratique est de passer par le composant TActionList.
Il permet de définir des TAction, qui pourront être reliées indifféremment à un TMenuItem, TPopupMenuItem, TButton, etc

**AL1986** · 17/08/2007, 11h19

Donc, il faut associer à chaque événement une TAction que j'aurai définie au préalable. Sinon, le fait d'utiliser une méthode qui gère les onclick pour chaque élément du menu est-il inévitable ? Ne peut-on pas créer une méthode globale (onclick du menu principal) et puis faire des tests sur les indexes pour choisir l'élément à traiter ?

**Cl@udius** · 17/08/2007, 11h27

Salut

Envoyé par AL1986

Ne peut-on pas créer une méthode globale (onclick du menu principal) et puis faire des tests sur les indexes pour choisir l'élément à traiter ?

A ma connaissance ce n'est pas possible, puisque le TMainMenu (ou TPopupMenu) ne possède pas d'évènement OnClick.

La meilleure solution reste l'utilisation du TActionList.
Si tu tiens à centraliser tous les clicks de tes éléments de menu, il te suffit d'associer à tous les éléments de menu la même action, et traiter en conséquence dans le OnExecute.

PS: Voir ActionComponent du TAction.

@+ Claudius

**cmen76** · 17/08/2007, 11h31

Pas de solution miracle pour cela.
Eventuellement, il est possible d'utiliser la propriété TAG de chaque action pour les différencier et les brancher à un unique gestionnaire d'événement qui ferait un

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.ToutesLesActionsExecute(Sender:TObject);
begin
  if sender is TAction then 
    case TAction(sender).Tag of
      1 : //action1
      2 : //action2
    //...
    end;
end;

... en espérant que le sender est bien le TAction (pas très sûr de ça

)

Ben si, je viens de vérifier.

**AL1986** · 17/08/2007, 11h44

Ok, Merci pour vos réponses.

**sjrd** · 17/08/2007, 14h04

Euh, vous vous égarez

Tu peux bien sûr relier plusieurs menus au même gestionnaire d'événement.

Il te suffit pour cela de choisir la petite flèche dans l'inspecteur d'objet pour l'événement OnClick, plutôt que de double-cliquer dans la case blanche.

Après, une fois dans le gestionnaire, tu peux faire des tests sur Sender.ce-que-tu-veux, comme Tag, Caption ou même la valeur de Sender elle-même.

Tu n'as pas nécessairement besoin de passer par des actions pour ça.

**CapJack** · 17/08/2007, 14h34

Je plussoie avec sjrd.

Mais les actions c'est quand même trrrrrrèès bien !

**sjrd** · 17/08/2007, 14h57

Envoyé par CapJack

Mais les actions c'est quand même trrrrrrèès bien !

Je plussoie avec CapJack.

Les actions sont un excellent système pour centraliser les... Actions que peut faire l'utilisateur sur le système.
Après, tu peux définir en trois clics un menu, un bouton ou tout ce que tu veux qui permet de réaliser l'action.

Avec le TActionManager, il y a même moyen de piloter le design de l'application par les actions.

**AL1986** · 17/08/2007, 15h52

Envoyé par sjrd

Après, une fois dans le gestionnaire, tu peux faire des tests sur Sender.ce-que-tu-veux, comme Tag, Caption ou même la valeur de Sender elle-même.

J'ai essayé en faisant un sender.tag

Code Delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Menu_Click(Sender: TObject );
begin
   case sender.tag  of
      0  :
      begin
         showmessage('premier element');
      end;
      1  :
      begin
         showmessage('deuxieme element');
      end;
   end;
end;

Mais ça ne passe pas à la compilation, on me dit que TObject ne contient pas de propriété tag

**cmen76** · 17/08/2007, 15h54

Tu as mal lu, il faut transtyper l'objet

Code :

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

TAction(sender).Tag

**AL1986** · 17/08/2007, 15h56

En fait je me suis un peu précipité. Quand je fais

Code Delphi :

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

TMenuItem(Sender).Tag

au lien de

Code Delphi :

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

Sender.Tag

ça passe et ça effectue l'affichage approprié.

**AL1986** · 17/08/2007, 15h58

Envoyé par cmen76

Tu as mal lu, il faut transtyper l'objet

Code :

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

TAction(sender).Tag

Le fait de transtyper en TMenuItem change-t-il quelque chose ?

**cmen76** · 17/08/2007, 16h03

En réalité, tout dépend du Sender que reçoit le gestionnaire d'événement.
Supposons que le gestionnaire serve pour un clic de bouton, et pour un clic de menu, et pour un raccourci clavier, alors il faudrait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
if Sender is TButton then 
begin
  case TButton(sender).Tag of ...
end
else if Sender is TMenuItem then 
begin
  case TMenuItem(sender).Tag of ...
end
else if Sender is TAction then 
begin
  case TAction(Sender).Tag of ...
end;