manipulation des "TPopupMenu"

Bonjour,

J'ai un peu de mal à manipuler les "TPopupMenu",
Par exemple, je voudrais inserrer l'Item d'un TPopupMenu dans le MenuItem d'un deuxième TPopupMenu.
Au niveau du codage cela ne pose, à priori, aucun pb :

MenuItem1.Add(MenuItem2);

avec PopupMenu1 -> MenuItem1
PopupMenu2 -> MenuItem2

Il me répond systématiquement que le "menu inséré deux fois" 8O

J'ai essayé de créer dynamiquement un TMenuItem, mais ça ne donne carrement rien, bien que cela ne plante pas.

Est-ce que cela parle à quelqu'un ?

Merci d'avance.

salut

je supose que tpopmenu sont creer au lancement ?
as tu essayé simplement de changer le parent ?

@+ Phil

Attention il faut changer le nom du nouveau item inséré dans PopupMenu2,
Voici une solution :

Code:

---

1 2 3 4 5 6 7 8 9

var MItem: TMenuItem; begin MItem:=TMenuItem.Create(Self); MItem.Name:=PopupMenu1.Items[0].Name+'x'; MItem.Caption:=PopupMenu1.Items[0].Caption; PopupMenu2.Items.Add(MItem); Button3.PopupMenu:=PopupMenu2; end;

---

Citation:

---

Envoyé par anapurna

salut

je supose que tpopmenu sont creer au lancement ?
as tu essayé simplement de changer le parent ?

@+ Phil

---

Oui ils sont créés à la conception mais apparemment la propriété "Parent" d'un TMenuItem est en lecture seule.

Citation:

---

Envoyé par abdelghani_k

Attention il faut changer le nom du nouveau item inséré dans PopupMenu2,

---

Merci, j'essai tout de suite.

Non, décidemment, quoi que je fasse, il me répond :
Menu inséré deux fois ?! 8O

J'aimerai bien savoir où est l'autre...

salut


c'est un probleme de ressource pour ce faire tu doit l'enlever du premier popup et ensuite l'inserer dens le deuxieme

Code:

---

1 2 3 4 5 6

var Item: TMenuItem; ... Item := PopupMenu1.Items[I]; PopupMenu1.Items.Delete(I); PopupMenu2.Items.Add(Item);

---

@+ Phil

Bonjour, et merci pour votre aide.:)

Désolé pour le temps de réponse, j'étais sur un autre problème.
Je n'y arrive décidément pas avec ces PopupMenus.
J'ai beau essayer ce que je veux, il me répond "Menu inséré deux fois". :(

Je crée 2 TPopupMenu à la conception : PopupMenu1 et PopupMenu2
je crée un TMenuItem dans PopupMenu1 : Activite
et un TMenuItem dans PopupMenu2 : Peche

Je voudrais, à l'excution, insérer le contenu de Peche dans PopupMenu1 en tant que sous-menu de Activite, ou, en tout cas recopier les sous-menus Peche dans Activite.

Que je fasse :

Code:

---

1 2 3

begin Activite.Add(Peche); end;

---

ou

Code:

---

1 2 3 4 5 6

var tutu: TMenuItem; begin tutu := TMenuItem.Create(Self); tutu := Peche; Activit1.Add(tutu); end;

---

Il me répond "Menu inséré deux fois" :cry:

Si cela parle à quelqu'un... Merci d'avance.

salut

as tu lut ma reponse il te faut le supprimer du premier pour pouvoir l'inserer dans le second

@ +Phil

ben oui, mais si je le supprime, il n'existe plus, comment je peux l'insérer après l'avoir supprimé ? 8O

Par contre, je me rends compte que je n'ai pas essayé de le renommer comme le suggère abdelghani_k. :aie:

J'ai tellement essayé de trucs !

salut


as tu bien regarder mon code ?

bon je vais l'expliquer ce seras paut etre plus clair ;)

Code:

---

1 2	var Item: TMenuItem;

---

on definit on variable de type TMenuItem pour sans servir de tampon ou
variable temporaire c'est comme tu veut :)

Code:

---

Item := PopupMenu1.Items[i];

---

j'affecte donc le menu que je veut dans ma variable temporaire

Code:

---

PopupMenu1.Items.Delete(I);

---

je supprime l'item du menu source pour eviter d'avoir ce fameux message d'erreur

Code:

---

PopupMenu2.Items.Add(Item);

---

je recopie l'item dans le menu destination

@+ Phil