bonjour,
j'éprouve quelques difficultés lors de la création de nouveaux éléments de menu, avec NewItem. Lorsque je les déclare, l'évènement associé se déclenche à la création, puis ne se déclenche plus lors d'un clic souris.
Voici le code de création des sous menus:
et la fonction qui doit se déclencher lors d'un clic:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 procedure TForm1.FormCreate(Sender:TObject); var i: integer; begin for i := 0 to LangManager.LanguageCount-1 do langue1.Add(NewItem(LangManager.LanguageNames[i],1,false,true,LangChange(i),1,'langue'+inttostr(2+i))); end;
Je dois surement rater quelque chose, dans mon code, mais là je sèche. Si quelqu'un peut m'éclairer, je suis preneur... En vous remerciant d'avance!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 function LangChange(iIndex: integer):TnotifyEvent; begin LangManager.LanguageID:= LangManager.LanguageIDs[iIndex]; end;
Partager