Discussion :

[pepi22]

Bonsoir delphiste,

Je cherche à imbriquer un TMenu au sein d'un autre TMenu.

Je m'explique : Prenons par exemple un TMenu nommé Menu1 avec un seul item appelé Item1 (TMenuItem) et un autre TMenu appelé Menu2.

Ce que je cherche à faire est d'imbriquer le Menu2 en tant que sous menu de l'item Item1 du Menu1.

Donc en code : (Exemple farfelue)

Code :

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

Menu1.Item1.SubMenu := Menu2

J'ai testé de différentes façons pour enfin obtenir un message d'erreur indiquant la réutilisation d'un menu.

Bref, existe t-il une façon de parvenir à mes fins?

Merci à tous.

[rsc]

J'essaierais :

Code :

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

Item1.Items.Assign(Menu2.Items);

[pepi22]

Code :

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

Item1.Items.Assign(Menu2.Items);

Ceci ne compile pas : [Error] '[' expected but '.' found

De plus,

Code :

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

Menu1.Items[0].Assign(Menu2.Items)

raised exception class EConvertError with message 'Cannot assign a TMenuItem to a TMenuItem'. Process stopped. Use Step or Run to continue.

Bien essayé

[rsc]

Oui, au temps pour moi, il n'y a pas de propriété Items, mais seulement Items[..].
Ceci devrait marcher à défaut de mieux :

Code :

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

1
2
for i := 0 to Item1.Count - 1 do
Item1.Add(Menu2.Items[i]);

[pepi22]

J'avais déjà essayé ... Désolé

raised exception class EMenuError with message 'Menu inserted twice'.

Merci quand même

[LeGEC]

Salut,

Je te suggère la solution suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  var
    LMenuItem : TMenuItem;
 
begin
  while Menu2.Count > 0 do
  begin
    LMenuItem := Menu2.Items[0];
    Menu2.Remove(LMenuItem);
    Menu1.Item1.Add(LMenuItem);
  end;
 
end;

Cette solution vide le premier menu.
Tu peux aussi essayer de dupliquer les éléments :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function CloneMenuItem( const ASrc : TMenuItem ) : TMenuItem;
begin
  Result := TMenuItem.Create( ASrc.Owner );
  Result.Name := ASrc.Name + 'bis'; //il n'est pas nécessaire d'avoir un nom unique, mais si tu y tiens tu peux assigner le nom ici
  Result.Caption := ASrc.Caption;
  Result.OnClick := ASrc.OnClick;
  //il faut que tu penses à dupliquer toutes les propriétés que tu as pu modifier...
  //je ne connais pas de fonction générique pour cloner un objet en Delphi
end;
 
//puis plus loin :
  for LMenuItem in Menu2 do
    Menu1.Item1.Add( CloneMenuItem(LMenuItem) );

[pepi22]

Merci pour vos réponses,

Je ne peut accepter la première réponse car les deux menus sont nécessaires.

J'ai pour seul but d'éviter de coder 2 fois le même menu.

Votre deuxième solution me paraît exacte mais toutefois, cela ne m'apporte pas de réel changement car j'assigne l'évènement du menu1.item1click au menu2.item1click en conception.

Donc le principe reste le même à la différence qu'avec votre solution, l'évènement est affecter au Run Time.

En conclusion, il est impossible d'assigner un menu en tant que sous menu ...

Bref, merci beaucoup, mais je crois que je vais devoir garder la même méthode

[anapurna]

salut

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
 
 
 Function CloneMenuitem( sourceitem: TMenuItem ): TMenuItem;
Var
  i: Integer;
Begin
  With sourceitem Do 
  Begin
     Result := NewItem( Caption, Shortcut, Checked, Enabled, OnClick, 
HelpContext, Name+'Copy' );
    For i:= 0 To count-1 Do
      Result.Add( CloneMenuItem( Items[i] ));
  End;
End;
 
//Dans le oncreate de ta form  
   MainMenu.items[0].add(CloneMenuitem(Popupmenutem))

[LeGEC]

J'ai pour seul but d'éviter de coder 2 fois le même menu.

Votre deuxième solution me paraît exacte mais toutefois, cela ne m'apporte pas de réel changement car j'assigne l'évènement du menu1.item1click au menu2.item1click en conception.

Donc le principe reste le même à la différence qu'avec votre solution, l'évènement est affecter au Run Time.

Je ne suis pas sûr d'avoir compris ta remarque?

En utilisant le code d'anapurna, tu peux créer un unique menu en conception et le coller, au runtime, dans tous les menus que tu veux.

Tu demandais un moyen de faire ça depuis le concepteur? Regarde les commandes que tu as en faisant un clic droit sur un item du menu depuis l'éditeur de menu. Les commandes "Enregistrer comme modèle.../Insérer depuis un modèle..." ne copient malheureusement pas le OnClick.
Une autre solution est de regarder le code du dfm (clic droit npt où sur ta fiche, "Voir comme texte") de répérer la partie correspondant au menu que tu veux dupliquer, de la copier/coller à l'endroit où tu veux dupliquer le menu, puis de revenir en mode fiche (clic droit sur le fichier "Voir comme fiche").

Personnellement, je pense que dupliquer des trucs dans le dfm n'est pas une bonne solution - après, il faut penser à répercuter les changements entre les deux copies... Si tu veux vraiment une copie conforme de ton menu à l'exécution, utilise la fonction d'anapurna.

[anapurna]

salut


si ce nest que les actions que tu ne veut pas coder deux fois utilise les actionlist c'est fait pour cela
tu defini tes actions est ensuite tu les assign a tes item de menu

@+ Phil