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:
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;
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
function LangChange(iIndex: integer):TnotifyEvent;
begin
LangManager.LanguageID:= LangManager.LanguageIDs[iIndex];
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!