On click sur Menu dynamique

Version imprimable

Bonjour,

J'ai crée un programme qui utilise un fichier ini pour constituer un menu dynamique :
A cette constitution de menu , je lui intégre l'evenement Onclick qui l'appel à la procédure appelmenu.

Toutes mes options vont appeler appelmenu , je voudrais pouvoir récupérer l'option du menu qui a fait l'appel pour faire un traitement en fonction de l'option d'appel
exemple menu1 doit ouvrir un fichier
menu2 doit enregistrer le fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
procedure TForm_Principale.AppelMenu(Sender: TObject);
begin
 // appel de l'option
  showmessage('test du menu xxxx');
// si menu1 alors faire ouvrir fichier 
// si menu2 alors faire enregistrer fichier 
end;
 
procedure TForm_Principale.InsertMenu();
var
 valeur_menu : string;
 indice  : integer;
  New_Item : TMenuItem;
 
begin
   chemin:=ExtractFilePath(ParamStr(0));
  // recherche des informations dans fichier ini
   file_ini := TIniFile.Create(chemin + 'menu.Ini');
   // récupération des menus
   indice:=1;
   while valeur_menu <> 'Fin' do
     begin
      valeur_menu:=file_ini.ReadString('ModuleA', inttostr(indice) ,'Fin' );
      if valeur_menu <> 'Fin' then
       begin
       // création optio ndu menu dans ModuleA
         New_Item := TMenuItem.Create(Self);
         New_Item.Caption := valeur_menu;
         ModuleA.Add(New_Item);
         // création Onclick
         New_Item.OnClick:= AppelMenu;
       end;
      inc(indice);
    end;
   // libération mémoire
   File_ini.free;
end;

Merci pour vos réponses

Philippe

24/05/2006, 20h44
tourlourou
affecte à la création puis utilise le tag de l'item cliqué dans le paramètre sender de la procédure AppelMenu :
Code:

1 2 3 4 5 6 if Sender is TMenuItem then case TMenuItem(Sender).Tag of 1: // ouvre le fichier 2: // nouveau document end;

TMenuItem(Sender).Tag

Bonjour,

Merci pour ta réponse , j'ai intégré le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm_Principale.AppelMenu(Sender: TObject); begin // appel de l'option if Sender is TMenuItem then case TMenuItem(Sender).Tag of 1: showmessage('menu1'); 2: showmessage('menu2'); end; end;
Je fais un appel de ma procédure à partir du menu 1 ou 2

Par contre la valeur de tag est toujours de 0 ce qui ne me permet pas de gérer le menu appelant.

Je cherche mais merci pour vos réponses

Philippe

25/05/2006, 06h55
sfpx

Dans ta boucle de création des menuitems t'as oublié ceci
New_Item.tag:=indice;
25/05/2006, 07h17
philippe30

Solution avec affectation du tag

Bonjour,

Effectivement cela fonctionne correctement maintenant , je ne connaissais pas l'usage du tag , je pensais qu'il récupérais les données via le menu.

Merci pour vos solutions

Philippe
:P