Discussion :

[gmc]

Bonjour,


comment faire pour mettre 1 seul et même MainMenu dans plusieurs forms ?

Si j'associe mon MainMenu à ma form principal, je ne pe pas utiliser ce meme MainMenu pour une autre form, car il me dit qu'il est deja utiliser pour une autre form...

Merci

[gord's]

pourquoi as-tu besoin de faire ça ?

[gmc]

pour avoir le meme menu, avec les meme action sur ce menu,

Mon logicile creer des forms, et je ve ke ces forme possede le meme menu partout

[gord's]

Fait un nouveau composant, avec les items et les actions qui doivent etre communs, et instancie le dans chaque form.

[Clorish]

Fait un nouveau composant, avec les items et les actions qui doivent etre communs, et instancie le dans chaque form.

PAs mieux.
C'ets la technique la plus efficace dans ce genre de situation.
C'est le principe meme de la prog Objet.

[Tardiff Jean-François]

bonjour

Il existe peut être une solution plus simple.

Eventuellement les frames, mais le frame et les menus ne doivent pas forcément fait bon ménage.

Et puis surtout la possibilité de se servire d'une formecomme modèle pour en créer une nouvelle.

Exemple:
Créer un projet Essai.
Dans ce projet créer un form FModele dans l'unité UModéle.
Sauvegarder tous le projet.
Dans le menu de delphi
Fichier
|-- Nouveau
|-- Autre
une fenetre s'ouvre indiquant quelle choix sont posible (nouvelle forme, nouveau data module etc..)
Choisir l'ongle "ESSAI" (Le nom du projet)
Selectionner la forme FModele
Cliquer sur OK

on obtient une forme copier de FModele que l'on peu modifier.
Attention, si l'on modifie FModele, la nouvelle forme sera modifier lors de la prochaine compilation.

Il faut utiliser les option du PROJET (surtout pas les options de delphi) pour metre cette forme en mainform

[gmc]

Merci à tous pour vos réponses !!

J'ai finalement pris la solution de créer dynamiquement le menu à partir d'un TMainMenu.

Solution :

Dans chaque form que l'on veut ajouter son menu, ajouter dans les uses : Menus

Dans l'évenement "Create" :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  new_menu : TMainMenu;
begin
 
  new_menu := TMainMenu.Create(self);
 
  new_menu.Merge(DataModuleGeneral.MainMenu1);
 
  self.Menu := new_menu;

Où DataModuleGeneral est un DataModule où se trouve le TMainMenu que l'on recopie à chaque fois.
Puis apres on l'affecte notre création dynamique du TMainMenu à la form courante !

Voilà !!