Discussion :

[thierrybo]

Bonjour,

j'essaie de convertir un programme vb.net en Delphi, je bute sur :

Code :

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

mNuBqe.MenuItems.Add(CType(Me.MdiParent, FrmMain).mnuEditionNouveau.CloneMenu)

que j'ai essayé de traduire par

Code :

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

pmMnuBqe.Items.Add(MainForm.mmiEditionNouveau);

mais j'ai une erreur "Menu inséré deux fois". D'après ce que j'ai cru comprendre, il faudrait créer une fonction pour "cloner" toutes les propriétés de l'objet 1 dans un nouvel objet 2 ?

Thierry B.

[Jeankiki]

Salut,
Peut être tu pourrais faire

Code :

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

1
2
 
pmMnuBqe.Items.Assign(MainForm.mmiEditionNouveau);

[thierrybo]

Merci,

mais ça ne marche pas. En suivant le code, çà ne fait qu'affecter la classe, mais ça ne copie pas les propriétés.

J'ai solutionné mon problème en utilisant TMemoryStream

mais j'ai l'impression que ce n'est pas très efficace :

Code :

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

1
2
3
4
5
6
7
8
        MenuItemEditionSupp :=
            TMenuItem
              (StringToComponentProc
                (ComponentToStringProc
                  (MainForm.mmiEditionSupp)
                )
              );
        pmMnuBqe.Items.Add(MenuItemEditionSupp);