Créer un sous-menu dynamiquement

Version imprimable

08/09/2004, 16h48
PurL

Créer un sous-menu dynamiquement
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:

1 2 3 4 TMenuItem *menu; menu->Caption = "Mon menu"; MainMenu->Items->Add(menu);
Mais àa ne marche pas :(

PurL

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

Code:

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();
 }

08/09/2004, 17h11
PurL
Merci pour ta réponse.
Code:

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
09/09/2004, 08h20
bakaneko

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

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.
09/09/2004, 10h31
jcr
Bonjour,

il y a moyen de le faire, essaye cela
Code:

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 .