Discussion :

[Faith's Fall]

Bonsoir,

Alors dans mon projet je dois récuperer des valeurs dans un fichier XML et créer des éléments dans un Menu précréé.

Le menu précréé est nommé MPlug.

Dans un premier temps je recupere les donnée de l'XML que je stocke dans une variable de type AnsiString. (Pour l'explication on passera l'XML car il fonctionne)

Code :

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

1
2
3
4
5
6
7
8
9
AnsiString sName = "Hello World";
AnsiString sUrl = "C:\projet\monprojet.exe"
 
// Je créé une nouvelle entré dans le menu
 
TMenuIem* pMitem = new TMenuItem(MPlug);
MPlug->Add(pMitem);
pMitem->Caption = sName;
pMitem->Hint = sUrl; // On stocke l'url ici

entre parallele j'ai créé une fonction execCommand(AnsiString sExe) qui doit lancer l'exe contenu dans le hint de l'élément.

Mon problème est que je sait pas du tout comment allouer cette commande a chaque nouveau élément du menu dans l'évenement onClick

Quelqu'un a une idée ?

[blondelle]

Salut the crow
J'ai fait une recherche sur le Forum avec " menu dynamique " il y a plusieurs reponses regarde ce lien peut etre repond il a ta demande

http://www.developpez.net/forums/sho...menu+dynamique

[henderson]

Salut !

On déclarant dans la classe de la form une méthode (en public), il faut juste respecter le prototype (une méthode qui prend pour paramètre un TObject *Sender):

Code :

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

1
2
 
void __fastcall MonClick(TObject *Sender);

La méthode (le Sender est l'objet concerné par le click) :

Code :

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

1
2
3
4
5
6
7
8
9
 
void __fastcall TForm1::MonClick(TObject *Sender)
{
TMenuItem *M = (TMenuItem*)Sender;
AnsiString N = M->Hint;
//...To do ... 
// si AnsiString ne passe pas pour la commande
// alors on passe un tableau de caractères (à zéro terminal) : N.c_str() 
}

Pour chaque menuitem existe donc un Caption et un Hint différents mais on leur donne à partager pour l'événement OnClick cette méthode unique :

Code :

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

1
2
3
4
 
TMenuItem *Nouveau = new TMenuItem(this);
...
Nouveau->OnClick = MonClick;

A plus !

[Faith's Fall]

Merci a vous 2 la solution de henderson marche parfaitement.

Par contre j'ai un autre soucis, il me créé bien l'item dans le menu mais l'affichage merde un peu (voir screen).

L'ajout (puTTY) est décalé et apparament le thème prend pas


Y a un moyen de réparer cela ?

[Auteur]

en faisant un redraw ou un repaint sur l'item après son insertion ?

[Faith's Fall]

en faisant un redraw ou un repaint sur l'item après son insertion ?

Bonne idée, j'avais deja tester de remettre le styler.