Discussion :

[zitoune92]

Bonjour,

Je voudrais affecter dynamiquement un evenement avec variable à chaque item de menu.

par exemple
menu1
---ssmenu1 -> lance "delphi.exe"
---ssmenu2 > lance "explorer.exe c:\temp"
etc...

j'ai utilisé la methode: (je passe les déclarations des types, published...)

Code :

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

1
2
3
4
5
6
7
8
(avec Address: TMethod;)
 
{pour chaque menu item créé}
Address.Code := MethodAddress('MenuItemClick');
Address.Data := Self;
NouveauMenuItem.OnClick := TNotifyEvent(Address);
 
Ma procedure "cible" étant MenuItemClick(Sender:TObject)

Si cette methode declenche bien MenuItemClick pour chaque MenuUtem, elle ne permet pas de passer l'argument de type string ("delphi.exe";"explorer.exe c:\temp")

MethodAdress semble ne pas accepter les arguments.

Avez vous la clé ?

Merci

[copeau31]

pourquoi ne pas utiliser tout simplement

Code :

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

NouveauMenuItem.OnClick := MenuItemClick;

avec dans MenuItemClick un test sur Sender.Name par exemple, pour savoir quel traitement effectuer..
j ai peut etre pas bien compris le probleme...

[zitoune92]

j ai peut etre pas bien compris le probleme...

oui en effet
l'argument est variable , donc non "stocké" dans le MenuItem, on ne peut donc le récuperer par le Sender (ou alors il y a une methode que j'ignore)
Je précise que cet argument est un texte et donc le tag est inutilisable


Merci quand même

[copeau31]

mais est ce que tu as un argument correspondant a un menu ?
ou bien
a un menu peut correspondre plusieurs arguments differents ?

[zitoune92]

Pour être précis, ce que je fais, c'est transformer un fichier XML qui a pour éléments Texte et Raccouci

Je convertis ce XML en menu, donc je retrouve la structure du XML en menu et j'affecte Texte au menuitem.caption.
Ce que j'aimerais en plus, c'est affecter à ce menuitem une action ayant pour argument Raccourci

Donc: menuitem1 <--> action(arg1)
menuitem2 <--> action(arg2) etc....

Cette action commune serait du genre:

ActionAuClickItem(Sender:TObject;Raccourci:string);
executer(Raccourci)

A+

[copeau31]

ok
une idee en vrac alors

dans ton module, tu definis un objet perso pour rajouter le champ action a un objet menu:

Code :

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

1
2
3
4
5
type
  TMenuItemPerso = class(TMenuItem)
  private
    Raccourci: string;
  end;

au lieu de creer des TMenuItem pour faire ton menu, tu crees des TMenuItemPerso, et tu renseignes le champ raccourci en lisant ton fichier.

Apres quand tu cliques dessus, tu peux faire

Code :

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

1
2
3
4
MenuItemClick(Sender:TComp);
beg
  executer((Sender as TMenuItemPerso).raccourci);
end

enfin qqch comme ca

[zitoune92]

j'essaie ça.

merci

[zitoune92]

C'est PAR-FAIT !

Effectivement je n'ai pas pensé que l'on pouvait deriver la classe TMenuItem.

Bon....j'apprends...

Merci encore.