Discussion :

[OutOfRange]

Bonjour
Ma fiche contient un popupmenu
Les éléments de menus sont créés dynamiquement
A la conception, je ne connais ni leur nombre, ni leur nom
Pourtant j'ai besoin de créér dynamiquement les items qui seront des sous-menus de ce popup
Voici mon code

Code :

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

1
2
3
4
5
6
 
itemparent:=Tmenuitem(findcomponent('menfam'+inttostr(nbfam)));
nouvmenu:=TMenuItem.Create(itemparent);
nouvmenu.Name:='menrub'+inttostr(c);
nouvmenu.Caption:=rub[c];
itemparent.Insert(0,nouvmenu);

qui compile sans pb mais plante à l'exécution, lors de l'insertion (dernière ligne)
---------------------rectification
J'avais oublié que je gère une exception + haut et je lançais l'appli depuis l'EDI...
En fait, il n'y a pas de plantage, mais aucun sous-menu n'est inséré
Je vais essayer de voir d'où peut venir l'erreur, avant de délester
Merci pour votre aide

[rsc]

Il faudrait déterminer précisément (par exemple en exécutant pas-à-pas) quelle ligne plante. Le pb avec la gestion des erreurs, c'est qu'elle "couvre" toutes les erreurs qui ne sont pas explicitement gérées. Il se peut donc que FindComponent ne ramène rien, que IntToStr ou rub [c], etc... renvoie une erreur.
Au niveau du code, la seule chose qui me pose problème est :

Code :

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

nouvmenu:=TMenuItem.Create(itemparent);

Le paramètre le Create étant l'Owner, j'aurais écrit :

Code :

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

nouvmenu:=TMenuItem.Create(Self);

[OutOfRange]

Salut rsc

Effectivement, l'erreur venait du paramètre du create
Ce qui signifierait que le Owner d'un TMenuItem ne peut pas être un autre TMenuItem
Je pensais en faisant comme j'ai fait, me dispenser du destructeur, le menu auquel appartient mon "sous menu" étant détruit avec la fiche
Bon, va falloir réviser la création dynamique de composants

D'ailleurs, je n'ai jamais compris comment le Owner d'un composant pouvait être ce composant lui-même

Décidement, la POO ne m'a pas encore révélé tous ses secrets

Merci rsc

[rsc]

D'ailleurs, je n'ai jamais compris comment le Owner d'un composant pouvait être ce composant lui-même

C'est effectivement impossible !
Si c'est le Create (Self) qui te fait dire cela, note que le Self ne représente pas le composant, mais la TForm, dans la mesure où ton code se trouve généralement dans une procédure d'objet TMyForm.MaProcedure.
Essaie d'utiliser Self dans une procédure "simple" (Procedure FaitCela) et tu auras une erreur de compilation (sauf si c'est dans un bloc with, mais c'est une autre histoire).

[Linkin]

Self n'est pas le composant mais la fiche ici non?

[Rayek]

Pour ajouter et créer un sous menu, il te suffit de rajouter un menuitem dans un menuitem

Code :

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

1
2
3
4
5
6
7
 
MonNouveauMenuItem := TMenuitem.Create(LePopUpMenu);
// configuration e ton MenuItem
MonNouveauMenuIem.caption := 'test';
 
// Ajout du MenuItem dans le MenuItem qu'on veut faire devenir sous menu
MonSousMenu.add(MonNouveauMenuItem);

[anapurna]

salut

il y a plus simple pour creer des menu dynamique
...
utiliser les fonction de l'unité menus

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function NewMenu(Owner: TComponent; const AName: string; const Items: array of TMenuItem): TMainMenu;
function NewPopupMenu(Owner: TComponent; const AName: string;
  Alignment: TPopupAlignment; AutoPopup: Boolean; const Items: array of TMenuItem): TPopupMenu;
function NewSubMenu(const ACaption: string; hCtx: THelpContext;
  const AName: string; const Items: array of TMenuItem; AEnabled: Boolean = True): TMenuItem;
function NewItem(const ACaption: string; AShortCut: TShortCut;
  AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: THelpContext;
  const AName: string): TMenuItem;
function NewLine: TMenuItem;

@+ Phil

[OutOfRange]

Bonjour

Si c'est le Create (Self) qui te fait dire cela, note que le Self ne représente pas le composant, mais la TForm, dans la mesure où ton code se trouve généralement dans une procédure d'objet TMyForm.MaProcedure.

Je comprends mieux maintenant. Faut dire que l'aide sur self n'est pas des plus limpides... (je n'ai pas encore assimilé tout ce jargon pascalien...)

l y a plus simple pour creer des menu dynamique
...
utiliser les fonction de l'unité menus

OK, avec toutefois une 'tite réserve

L'élément renvoyé par NewItem n'a pas de propriétaire. Vous êtes responsable de la libération de sa mémoire lorsqu'elle n'est plus nécessaire. Les méthodes Delete et Remove de TMenuItem ne libèrent pas la mémoire.

Alors qu'avec la méthode create(self), mon item est détruit et sa place mémoire libérée avec la fiche...
Bon j'espère cette fois avoir tout bien compris

Meci à tous