Popup menu : ameliorations de mon code

Version imprimable

Bonjour a tous,

J'utilise un popup menu avec le code suivant (qui fonctionne) :

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
39
40
41
42
43
 
Var
    Item_1 : TMenuItem;
    SubItem_1, SubItem_2, SubItem_3, SubItem_4 : TMenuItem;
    I : Integer;   
const
      NomSubMenu_EMail : Array [1..4] of String=('Informations','Research','Commercial','Formations');
begin
 
      // Effacer tous les éléments de menu
          PopupMenu1.Items.Clear;
 
      // Créer les éléments de menu
          Item_1 := TMenuItem.Create(PopupMenu1);
      // Ajouter au PopupMenu
          PopupMenu1.Items.Add(Item_1);
      // Affecter à Caption le titre
          Item_1.Caption := 'EMail';
 
          // Créer les éléments de submenu
              SubItem_1 := TMenuItem.Create(Item_1);
          // Ajouter au PopupMenu
              Item_1.Add(SubItem_1);
          // Affecter à Caption le titre
              SubItem_1.Caption := NomSubMenu_EMail[1];
          // Créer les éléments de submenu
              SubItem_2 := TMenuItem.Create(Item_1);
          // Ajouter au PopupMenu
              Item_1.Add(SubItem_2);
          // Affecter à Caption le titre
              SubItem_2.Caption := NomSubMenu_EMail[2];
          // Créer les éléments de submenu
              SubItem_3 := TMenuItem.Create(Item_1);
          // Ajouter au PopupMenu
              Item_1.Add(SubItem_3);
          // Affecter à Caption le titre
              SubItem_3.Caption := NomSubMenu_EMail[3];
          // Créer les éléments de submenu
              SubItem_4 := TMenuItem.Create(Item_1);
          // Ajouter au PopupMenu
              Item_1.Add(SubItem_4);
          // Affecter à Caption le titre
              SubItem_4.Caption := NomSubMenu_EMail[4];

Mais est-ce qu'il n'y aurait pas moyen de l’améliorer en minimisant le nombre de ligne avec un code comme le suivant (qui ne fonctionne pas : "Access violation at adress.....") :

Code:

1
2
3
4
5
6
7
 
            For I:=1 to 4 do
              begin
                    TMenuItem('SubItem_'+IntToStr(I)).Create(Item_1);
                    TMenuItem('SubItem_'+IntToStr(I)).Add(Item_1);
                    TMenuItem('SubItem_'+IntToStr(I)).Caption:=NomSubMenu_EMail[I];
              end;

Par avance, merci d’éclairer ma lanterne.

j'utilise Win7 et delphi2007

Bonjour,

Citation:

Envoyé par drxel

...un code comme le suivant (qui ne fonctionne pas : "Access violation at adress.....") :

Code:

1
2
3
4
5
6
7
 
            For I:=1 to 4 do
              begin
                    TMenuItem('SubItem_'+IntToStr(I)).Create(Item_1);
                    TMenuItem('SubItem_'+IntToStr(I)).Add(Item_1);
                    TMenuItem('SubItem_'+IntToStr(I)).Caption:=NomSubMenu_EMail[I];
              end;

C'est normal, vous dites à Delphi, prends cette chaine de caractères et considères la comme un objet de type TMenuItem... :(

Pour optimiser le code, on peut déjà procéder comme suit :

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
var
  MenuItem, SubMenuItem: TMenuItem;
  I: Integer;
const
  NomSubMenu_EMail: array [1..4] of String=('Informations','Research','Commercial','Formations');
begin
 
// Effacer tous les éléments de menu
  PopupMenu1.Items.Clear;
 
// Créer le 1° élément de menu
  MenuItem := TMenuItem.Create(PopupMenu1);
// Affecter à Caption le titre
  MenuItem.Caption := 'EMail';
// Ajouter au PopupMenu
  PopupMenu1.Items.Add(MenuItem);
 
// Créer les 4 sous-menus
  for i := 1 to 4 do
  begin
    // La variable est une variable de travail, donc réutilisable...
    SubMenuItem := TMenuItem.Create(MenuItem);
    SubMenuItem.Caption := NomSubMenu_EMail[i];
    MenuItem.Add(SubMenuItem);
  end;
end;

On peut aller encore plus loin, mais il ne faut pas non plus que cela devienne illisible et ne facilite pas la maintenance... ;)

03/09/2012, 11h51
drxel

Merci de la réponse,

Ç'est vrai, j'aurais du y penser aussi.

"C'est normal, vous dites à Delphi, prends cette chaine de caractères et considères la comme un objet de type TMenuItem..."

Je pensais qu'avec :

Code:

TMenuItem('SubItem_'+IntToStr(I))

je lui disais : cree moi un "TMenuItem" avec comme nom "('SubItem_'+IntToStr(I))"

mais bon ça ne doit pas être la bonne formulation.
03/09/2012, 12h21
ShaiLeTroll

Pour le code de création, la boucle sans approprié !

Si tu souhaites retrouver un composant par son nom dans la collections Components du Owner (PopupMenu1 dans le cas présent), il y a la méthode FindComponent !
03/09/2012, 12h54
drxel

Bonjour ShaiLeTroll,

Justement j'avais vu des exemples de la méthode "FindComponent" :

Code:

(Findcomponent('Form'+IntToStr(i)+'.Label1') as TLabel).Visible:=True;

et c'est en voyant ce genre de chose que je me suis dis qu'il y avait peut être moyen de faire quelque chose "d’élégant" avec

Code:

TMenuItem('SubItem_'+IntToStr(I)).Create(Item_1);
03/09/2012, 17h04
Ph. B.
Bonjour,
On peut nommer les composants lors de leur création dynamique, il suffit de modifier la boucle en rajoutant l'instruction suivante :

Code:

SubItem.Name := 'SubItem_' + IntToStr(i);

Et pour retrouver le composant il suffit de l'instruction :
Code:

1 2 3 4 if MenuItem.FindComponent('SubItem_3') <> nil then ShowMessage('SubItem_3 Trouvé.') else ShowMessage('SubItem_3 non trouvé');
Attention à éviter les doublons lors du nommage... :zoubi:
04/09/2012, 09h55
drxel

OK. Merci de l'info.