Prob création popupmenu

Version imprimable

Bonjour, je souhaiterais charger un item de mon popupmenu a l'aide d'une section d'un fichier .ini
j'ai écrit ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 if (FileExists(Chemin+"ListCarte.ini")) { try { f = new TIniFile(Chemin+"ListCarte.ini"); for(i=0;i<=2;i++) { AnsiString s = f->ReadString("Liste des cartes", "Carte" + AnsiString(i), ""); //??? this->PopupMenu1->FindItem(1,fkCommand)->Find("Cartes")->Add(s) ; TListBox *List; List->Items->Add(s); } } __finally { delete f; }
mais tout se que j'obtient c'est une erreur "EAccesViolation".
Vous auriez une idée svp ?

21/07/2008, 08h11
jehrikhan

Il faudrait que tu crée le TListBox avec l'opérateur new

Code:

TListBox *List = new TListBox(this);

Par contre il ne faut pas oublier la propriété ParentWindow de l'objet qui est indispensable à définir.

Code:

List->ParentWindow = Form1->handle;

Pour ta boucle tu peux essayer ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 AnsiString s; TMenuItem *m ; for(i=0;i<=2;i++) { s = f->ReadString("Liste des cartes", "Carte" + AnsiString(i), ""); m = new TMenuItem(PopupMenu1) ; m->Caption = s ; PopupMenu1->Items->Add( m ); // pour ajouter des sous items au Nième élément d'un PopumMenu: // PopupMenu1->Items->Items[N]->Add( m ); }
A quoi sert ta ListBox? Si tu n'a pas besoin de la voir et que c'est juste pour stocker des AnsiString, utilise plutôt la classe TStringList qui est faite pour ça:
Code:

1 2 3 TStringList *list = new TStringList(); // utilisation de la liste delete list ;

21/07/2008, 23h34
jeanmichmuch66
OK merci sat83,
c'est bien ce que je voulais faire,
mais pour preciser la chose, je souhaiterais charger la section voulue, en l'occurence "Liste des cartes" dans un TListbox ou TStringList ce qui me permettrais de savoir combien d'item je vais charger dans mon popupmenu et donc remplacer mon "2" de la boucle for "for(i=0;i<=2;i++)" que j'avais mis pour test par le nombre des items.

j'ai essayé ça :
Code:

1 2 3 TStrings *n; f->ReadSection("Liste des cartes",n);
mais j'ai le même soucis : erreur "EAccesViolation".
Une autre petite idée ?

Citation:

j'ai essayé ça :

TStrings *n;
f->ReadSection("Liste des cartes",n);

mais j'ai le même soucis : erreur "EAccesViolation".

C'est normal! Tu déclare un objet, puis tu l'utilise sans l'avoir créée. Il faut toujours avoir:

Citation:

1) DECLARATION (ça tu l'a fais),
2) CREATION (avec un new),
3) UTILISATION,
4) DESTRUCTION (avec delete).

Tu peux en effet utiliser ReadSection et un TStringList pour charger les élements de ton Menu (mais c'est à toi de bien écrire ton fichier INI !):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 TStringList *list = new TStringList(); f->ReadSection("Liste des cartes",list); TMenuItem *m ; for(i=0; i< list->Count; i++) { m = new TMenuItem(PopupMenu1) ; m->Caption = list->Strings[i] ; PopupMenu1->Items->Add( m ); // pour ajouter des sous items au Nième élément d'un PopumMenu: // PopupMenu1->Items->Items[N]->Add( m ); } delete list ;

Posts ajouté avant le Rollback
Citation:
Envoyé par jeanmichmuch66
Merci pour ces infos qui mon bien débloqué, maintenant il me reste a affecter une fonction click sur les items du popupmenu créés au démarrage (lu d'un fichier .ini)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 TMenuItem *ItemCarte; ItemCarte =dynamic_cast <TMenuItem *>(Sender); Itemclick = this->PopupMenu1->Items->Name; // ?? donne pas le nom de l'item ?? if (FileExists("f:\\****.ini")) // remplacer "f:\\****.ini" par //le fichier pointé par l'item "d'appel du popupmenu" { try { f = new TIniFile("f:\\****.ini"); //idem i = f->ReadString("Carte", "Image", ""); } __finally
Mais je n'arrive pas a obtenir le nomm de l'item "cliqué".
Alors comment faire svp ?
Citation:
Envoyé par sat83
Je ne sais pas si j'ai tous a fait compris ce que tu veux faire, mais voici peut etre une piste:

Tu créer une méthode générale :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 void __fastcall TForm1::PersoItemPopupMenuClick(TObject *Sender) { TMenuItem *itemTmp; itemTmp = ((TMenuItem *)Sender) ; AnsiString filename ; filename = "f:\\" + itemTmp->Caption + ".ini" ; if ( FileExists( filename ) { try { f = new TIniFile( filename ); //idem i = f->ReadString("Carte", "Image", ""); } //[...] }
Et ensuite tu ajoute l'affectation à cette méthode pour le click pour les Items créés dynamiquement:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 TStringList *list = new TStringList(); f->ReadSection("Liste des cartes",list); TMenuItem *m ; for(i=0; i< list->Count; i++) { m = new TMenuItem(PopupMenu1) ; m->Caption = list->Strings[i] ; m->OnClick = PersoItemPopupMenuClick; PopupMenu1->Items->Add( m ); // pour ajouter des sous items au Nième élément d'un PopumMenu: // PopupMenu1->Items->Items[N]->Add( m ); } delete list ;
Citation:

Envoyé par jeanmichmuch66

Encore merci ca fonctionne au détails prés que ce code

Code:

AnsiString fichier = itemTmp->Caption;

j'obtient bien le caption de l'item mais il y a un "&" devant qui bloque tout.
j'aimerais savoir comment récupérer le caption sans le "&" ou une fonction qui me permettrait de récuperer les caractéres aprés un caractére spécifié ("&" pour mon cas) si quelqu'un connais cette fonction...
Merci
Citation:
Envoyé par sat83
Essai ça:
Code:

1 2 3 4 5 6 7 8 AnsiString fichier = itemTmp->Caption; if( fichier.Length() >= 2) { if( fichier[1] == '&' ) { fichier = fichier.SubString(2,fichier.Length()) ; } }
Citation:

Envoyé par jeanmichmuch66

malheureusement ca fonctionne que pour le premier item car je viens de m'apercevoir que le "&" se déplace en fonction de la position de l'item.
alors est il possible de cibler le "&" et de l'extraire de la chaine de caractère.

Citation:

Alors regarde du cote de la fonction AnsiReplaceStr():

Code:

AnsiString fichier = AnsiReplaceStr( itemTmp->Caption, "&", "")

Citation:

Envoyé par jeanmichmuch66

merci c'est tout a fait ce qu'il me fallait, mais serais tu par hasard pourquoi ce "&" apparait dans le caption?

Citation:

Envoyé par pottiez

Le & du caption, signifie que la lettre suivant ce & sera souligné dans ton Item, et grâce à cela, si tu fait la combinaison Alt+"Lettre souligné" lorsque ton menu est ouvert, cela sélectionnera automatiquement l'Item dont la lettre souligné correspond à la lettre tapé.

Citation:

Envoyé par TABZ

Il existe une fonction pour éliminer le '&' lors de la reprise du Caption : "StripHotkey", soit dans votre cas :

Code:

AnsiString fichier = StripHotkey(itemTmp->Caption);

Il est théoriquement possible d'empêcher l'autocréation des raccourcis (&) en mettant la propriété "AutoHotkeys" à "maManuel". J'ai remarqué qu'en utilisant les PopupMenus de la catégorie TPopupActionBar, celà ne fonctionne qu'à partir des sous-menus, comme s'il y avait un p'tit bug quelque part...