Discussion :

[cadetill]

Bonjour

Je suis en train de crée dynamiquement un TPopupMenu qui doit être égal a un autre mais avec quelques option de plus.

Maintenant je fais ça:

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
21
22
23
24
25
26
27
 
var
  aItem: TMenuItem;
 
  procedure AddMenu(aParent, Item: TMenuItem);
  var
    i: integer;
  begin
    for i := 0 to Item.Count - 1 do
    begin
      aItem := TMenuItem.Create(aParent);
      aItem.Caption := Item[i].Caption;
      aItem.Hint := Item[i].Hint;
      aItem.ImageIndex := Item[i].ImageIndex;
      aItem.OnClick := Item[i].OnClick;
      aParent.Add(aItem);
 
      if Item.Count <> 0 then AddMenu(aItem, Item[i]);
    end;
  end;
begin
  if not Assigned(FPopup) then Exit;
 
  FOldPopup := FGrid.PopupMenu;
  AddMenu(FPopup.Items, FGrid.PopupMenu.Items);
  FGrid.PopupMenu := FPopup;
end;

Mais je crois qu'il doit avoir une façon meilleur de le faire. J'ai essayer avec Assign mais ça provoque l'erreur "Cannot assign a TPopupMenu to a TPopupMenu". Le code que j'utilise pour ça c'est

Code :

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

1
2
3
4
5
6
 
begin
....
  FPopup.Assign(FGrid.PopupMenu);
.....
end;

J'ai aussi essayer ça

Code :

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

1
2
3
4
5
6
 
begin
....
  FPopup.Items.Add(FGrid.PopupMenu.Items);
.....
end;

mais il ne fait pas c'est que je veux exactement (il crée une nouvelle option de menu sans caption la quelle a toutes les outres options de menu).

Aucune idée pour améliorer mon code?

Merci en avance

Salut!

[mengwei]

Salut,

Code :

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

PopupMenu1.Items.Assign( PopupMenu2.items)

ça devrait marcher. Par contre, Fais d'abord le Assign, et ensuite ajoute les options dont tu as besoin...

[cadetill]

Bonjour

Merci pour ta réponse, mais j'ai aussi essayer ça et il renvoi aussi l'erreur "Cannot assign a TMenuItem to a TMenuItem"

Le code c'est

Code :

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

1
2
3
4
5
begin
....
  FPopup.Items.Assign(FGrid.PopupMenu.Items);
.....
end;

Je crois que TPopupMenu et TMenuItem n'ont pas implémenté cet méthode (override du TPersistent), mais je ne suis pas sûr.

Et oui, je fais premièrement l'assignation des options du ancien popup et, après, je met les nouvelles options.

Merci encore

Salut.

[Aka Guymelef]

Après vérification effectivement les TMenu ne redéfinissent pas le Assign. TMenuItem le fait bien mais fonctionne de manière un peu spéciale dans le sens où il ne se réplique que si la cible est un descendant de TCustomAction (TMenuItem descend de TComponent).

Pour faire ce que tu veux faire il va te falloir une routine de réplication des tes éléments de menu.

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
21
22
23
24
function DupliquerMenu( Source, Cible: TMenuItem; MenuCible: TMenu )
var
 Cpt: Integer;
 CibleFils: TMenuItem;
begin
  // copier les propriétées à dupliquer
  Cible.Caption := Source.Caption;
  // ...
 
  // dupliquer les fils du noeud en cours
  for Cpt := 0 to Source.Count - 1 do
  begin
    // créer le nouveau fils
    CibleFils := TMenuItem.Create( MenuCible );
    // l'ajouter au noeud Cible qui devient son parent
    Cible.Add( CibleFils );
    // appeler récursivement la méthode pour valuer les Items et dupliquer les fils de CibleFils s'il y en a
    DupliquerMenu( Source[Cpt], CibleFils, MenuCible );
  end;
 
end;
 
// appel
DupliquerMenu( Menu1.Items, Menu2.Items, Menu2 );

[cadetill]

Bonjour

Bon, ça c'est plus o moins ce que je fait, assigner chaque propriété et méthode une a une et c'est ce que je veux améliorée

Merci a tous pour vos réponses

Salut!

[Aka Guymelef]

Ben je ne crois pas qu'il y ait d'autre moyen d'améliorer ça, et puis de toute façon les méthodes Assign ben elles font de la recopie champ à champ en vérité elles-aussi dans la logique du système donc...

[ShaiLeTroll]

il y a aussi les RTTI, qui permettrait de copier toute property publiée ... voir l'unité TypInfo, je l'ai fait pour mes objets persistants (bcp de code, trop pour le mettre ici)

[cadetill]

il y a aussi les RTTI, qui permettrait de copier toute property publiée ... voir l'unité TypInfo, je l'ai fait pour mes objets persistants (bcp de code, trop pour le mettre ici)

Oui, j'ai pensé aussi avec la RTTI mais ça c'est pour faire quelque chose plus générique que ça

Cependant, je vais voir si c'est trop compliqué d'implémenter

Merci a tous