Discussion :

[neb-toi]

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!

[anapurna]

salut


ta fonction doit renvoyer un tnotifyevent la elle affect une valeur
mais ne renvoi rien

@+ Phil

[neb-toi]

D'accord, mais même si j'ai compris, je ne vois pas trop quelle piste explorer:

• changer la déclaration de la fonction, mais du coup, cela bloque lors de la compilation, dans le NewItem
• Changer la fonction elle même, passer par une procedure, mais du coup, je ne vois pas comment transmettre une valeur à cette procédure

je patauge, un peu, là...

[anapurna]

salut

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;

ta fonction est bien defini mais elle ne renvoi rien ton TnotifyEvent doit etre
a nil

si j'ai pige ton truc tu devrais faire

Code :

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

1
2
3
4
function LangChange(iIndex: integer):TnotifyEvent;
begin
   result := LangManager.LanguageIDs[iIndex].notifyevent ;
end;

si tu as construit ton langmanager

@+ Phil

[neb-toi]

merci de tes réponses!
mais...
Si je suis ce que tu me dis, j'obtiens une erreur: 'word' ne contient pas un membre nommé 'notifyevent'...?

>Pour LangManager, il appartient au package DKLang, je ne l'ai pas construit, je l'appelle pour changer la langue de l'application.

[anapurna]

salut


Bon, je n’avais pas bien compris ce que tu voulais faire
Voila comment je procéderai

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
24
25
26
27
28
29
30
31
32
 
TMyForm = class(TForm)
  Langue1: TMenuItem;
 
...
Protected 
  Procedure OnMyClickMnu(Sender : Tobject);
  Procedure GenereMnuLangue;
Private 
...
end;
 
Procedure TMyForm.GenereMnuLangue;
var
 Item : TMenuItem;
 
begin
  Langue1.Items.Clear;
  for i := 0 to LangManager.LanguageCount-1 do 
  begin  
    Item := TMenuItem.Create(Langue1);
    Item.Caption := LangManager.LanguageNames[i];
    Item.Tag := i;
    Item.OnClick := OnMyClickMnu ;
    Langue1.Items.Add(Item);
end;
 
 
Procedure TMyForm.OnMyClickMnu(Sender : Tobject);
begin
  LangManager.LanguageID:= LangManager.LanguageIDs[TMenuItem(Sender).Tag]; 
end;

@+ Phil

[neb-toi]

Et ça marche! Merci beaucoup de ton aide!
( je rajouterai bien à charge de revanche, mais vu le boulot d'apprentissage qu'il me reste, je ne suis peut être pas prêt à pouvoir filer des coups de main... )

[anapurna]

salut

la premiere des chose serait de mettre resolu

ensuite il n'y as pas de niveau pour aider quelqu'un

@+ Phil