Discussion :

[jack2020]

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 :

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

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 :

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

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.

[Ph. B.]

Bonjour,

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 :

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

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 :

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

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

[jack2020]

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 :

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

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

renvoie TrayIcon1

je cree le menu et sous menu par cette methode :

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
 
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 :

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

(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...

[Ph. B.]

Re,

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 :

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

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...

[jack2020]

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