Récupérer le nom du menu parent (PopupMenu) de l'option cliquée

Bonjour,

jusqu'à présent, j'ai utilisé FreePascal pour des petits projets rapidement prototypés et c'etait très bien, le langage est rapide, plus agréable à utiliser que le C mais je m'attaque à un projet GUI et j'ai un problème. Je me rends compte que la doc de Lazarus/FreePascal est vraiment insuffisante et pas du tout explicite (par exemple citer les fonctions, c'est bien mais il y a très peu d'exemples). Bon voici ma question :

j'ai créé un menu popup dynamique contrôlé par un TrayIcon ; tout se passe bien, j'ai donc un menu qui s'affiche correctement, j'ai lié les options à une procédure MyPopupEvent pour récupérer le nom de l'option du menu cliqué et ça marche bien, je récupère l'info par :

Code:

---

1 2 3 4

var ResCH : string;   ResCH := (sender as TmenuItem).caption;

---

Maintenant le problème. Je voudrais récupérer également le nom du menu parent de l'option cliquée et là ça coince : j'ai récupéré un exemple sur le net que j'ai modifié :

Code:

---

1 2 3 4 5 6 7 8

var ALabel : TLabel; Caller : TComponent;   Caller := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent; ALabel := TLabel(Caller);   ShowMessage(ALabel.Caption); // il semble que cette ligne provoque une erreur fatale du genre "le projet a levé une exception de class External:SIGSEGV At Adress ....."

---

Le projet se compile pourtant parfaitement ; si vous avez une idée je suis à l'écoute, merci.

Bonjour,

Citation:

---

Envoyé par jack2020

maintenant le probleme. je voudrais recuperer egallement le nom du menu parent de l'option clique et la ca coince, j'ai recupere un exemple sur le net que j'ai modifie :

Code:

---

1 2 3 4 5 6 7 8

var ALabel : TLabel; Caller : TComponent;   Caller := ((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent; ALabel := TLabel(Caller);   ShowMessage(ALabel.Caption); // il semble que cette ligne provoque une erreur fatale du genre "le projet a leve une exception de class External:SIGSEGV At Adress ....."

---

---

D'une part, la propriété PopupComponent n'est pas assigné (= nil), d'autre part avant de transtyper un TComponent en TLabel, il faut être sur que le type réel correspond... Sans plus d'information (cf. ci-après), et compte tenu des informations que vous avez fournies, je penserai que le composant est du type TTrayIcon.

Mais, si on regarde le code affecté à la propriété PopupComponent (clic-droit, chercher la déclaration) du TPopMenu, on constate qu'aucune assignation n'est faite dessus. Il faut donc le faire vous même par code, dans le gestionnaire d'événement OnCreate de la fiche, par exemple.

Code:

---

1 2 3 4

procedure TForm1.FormCreate(Sender: TObject); begin PopupMenu1.PopupComponent := TrayIcon1; end;

---

Ensuite, vous pourrez récupérer l'information (attention car tous les composants n'ont pas de propriété Caption) : TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent.Name

Bonjour,

merci de votre reponse, je pensais que c'etait automatique puisque j'ai utilise lazarus pour creer la form. j'ai assigne comme indique...

la ligne suivante :

Code:

---

ShowMessage(((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent.Name);

---

renvoie TrayIcon1

je cree le menu et sous menu par cette methode :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

var MenuItem, SubMenuItem: TMenuItem;   MenuItem := TMenuItem.Create(PopupMenu1); // Affecter à Caption le titre MenuItem.Caption := "Menu principal 1"; // Ajouter au PopupMenu PopupMenu1.Items.Add(MenuItem);   // ensuite j'ajoutes sousmenus disons 2 options   SubMenuItem := TMenuItem.Create(MenuItem); SubMenuItem.Caption := "Sous menu 1"; // lier a MyPopupEvent SubMenuItem.OnClick := @MyPopupEvent; MenuItem.Add(SubMenuItem);   SubMenuItem := TMenuItem.Create(MenuItem); SubMenuItem.Caption := "Sous menu 2"; // lier a MyPopupEvent SubMenuItem.OnClick := @MyPopupEvent; MenuItem.Add(SubMenuItem);

---

je gere manuellement l'activation du popupmenu par le bouton gauche de la souris, je me sers du bouton droit pour faire une demande de fermeture du programme...

dans MyPopupEvent, je peux recuperer l'option clique par :

Code:

---

(sender as TmenuItem).caption;

---

mais comment recuperer le libelle du menu parent, par exemple quand je cliques sur "Sous menu 2", comment obtenir "Menu principal 1"

ca doit etre tout simple, mais ca prend la tete...

Re,

Citation:

---

Envoyé par jack2020

mais comment recuperer le libelle du menu parent, par exemple quand je cliques sur "Sous menu 2", comment obtenir "Menu principal 1"

---

En interrogeant son Parent :

Code:

---

1 2 3

MenuItem := TMenuItem(Sender); if (MenuItem.Parent <> nil) and (MenuItem.Parent is TMenuItem) then LibelleMenuParent := TMenuItem(MenuItem.Parent).Caption;

---

Si il y a plusieurs sous niveaux, on réitère...

Merci beaucoup, ca marche, je crois que je me fais vieux...