Discussion :

[PurL]

Bonjour,

Je cherche le moyen de créer un sous-menu dynamiquement à un TMenuItem. Comme on pourrait le faire dans le concepteur de menus

Je vois bien un truc du genre :

Code :

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

1
2
3
4
 
TMenuItem *menu;
menu->Caption = "Mon menu";
MainMenu->Items->Add(menu);

Mais àa ne marche pas

PurL

[bakaneko]

Essaye d'adapter ceci:
code qui marche dans mon cas:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Query->Close();
 Query->SQL->Clear();
 Query->SQL->Add("SELECT DISTINCT TM_TYPEMENU FROM TYPE_MARQUE ORDER BY 1");
 Query->Prepared = true;
 Query->Open();//récupération des différents types de menu existants
 Application->ProcessMessages();
 for (int i = 0;i < Query->RecordCount;i++)
 {
  TMenuItem* Menu = new TMenuItem(PopupCreation);
  Menu->Caption = Query->FieldByName("TM_TYPEMENU")->Text;
  PopupCreation->Items->Add(Menu);//création des items dans le popup
  Query->Next();
 }
 Query->First();
 
 for (int i = 0;i < Query->RecordCount;i++)
 {
  QuerySM->Close();
  QuerySM->SQL->Clear();
  QuerySM->SQL->Add("SELECT TM_NOM FROM TYPE_MARQUE WHERE TM_TYPEMENU="+QuotedStr(Query->FieldByName("TM_TYPEMENU")->Text)+" ORDER BY 1");
  QuerySM->Prepared = true;
  QuerySM->Open();//récupération des différents types de marque par type de menu
  Application->ProcessMessages();
  for (int z = 0;z < QuerySM->RecordCount;z++)
  {
   TMenuItem* Menu = new TMenuItem(PopupCreation);
   Menu->Caption = QuerySM->FieldByName("TM_NOM")->Text;
   Menu->OnClick = ActionPopup;
   PopupCreation->Items->Items[i]->Add(Menu);//création des items dans le popup selon le menu
   QuerySM->Next();
  }
  Query->Next();
 }

[PurL]

Merci pour ta réponse.

Code :

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

1
2
 
PopupCreation->Items->Add(Menu);//création des items dans le popup

ca marche uniquement pour un TMainMenu ou un TPopupMenu.
On ne peut pas faire (apparement) un "Items->Add(menu)" sur un TMenuItem

Or c'est bien un menu (sous-menu) à un TMenuItem d'un TMainMenu que je veux créé (rajouter une petite fleche noir à coté)

PurL

[bakaneko]

Désolé, j'avais mal lu ta question

Pour les TMainMenu, je ne sais pas mais selon l'aide de Builder, la propriété Items est en lecture seule. Je ne sais donc pas si c'est faisable.

[jcr]

Bonjour,

il y a moyen de le faire, essaye cela

Code :

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

1
2
3
4
 
TMenuItem *menu; 
menu->Caption = "Mon menu"; 
MainMenu->Items[pos]->Items[index]->Add(menu);

avec pos correspondant à la position de ton menu principal et index à la position du sous-menu où tu veux ajouter ton sous-menu.
Je pense que le premier menu a comme valuer 0 .