sous-menus dynamique et evennement onClick [résolu] - Delphi/Pascal - Programmation
Marsh Posté le 04-11-2004 à 13:17:20
Tu dois créer une méthode quelconque à la form ("OnClickGlobal" par exemple) ou autre objet, recevant un paramètre Sender de type TObject.
Ensuite quand tu crées tes items, tu assignes cette méthode :
nouvelItem.OnClick := OnClicGlobal;
Et dans OnClickGlobal tu mets ce qu'il faut faire quand un item est choisi :
if Sender = item1 then
...
else
if Sender = item2 then
...
etc.
Tu peux aussi mettre une valeur spéciale dans leur tag :
if Sender is TMenuItem then
case TMenuItem(Sender).Tag of
1: l'item qui a le tag 1
2: etc.
end;
ou encore mettre dans le tag le pointeur vers l'objet qui gèras l'item, en faisant un cast bien bourrin.
Marsh Posté le 04-11-2004 à 08:53:20
Salut,
Je suis en train de me faire des sous-menus dynamiques (du style les derniers fichiers ouverts) j'ai cherché un peu partout une solution pour leur rajouter du code dans leur evennement onClick mais là je sèche alors en même temps, est-ce qu'il est possible de le faire ?
Message édité par bill_clinton le 25-03-2006 à 02:16:38