bonjour a tous je vous fait appel car j'ai un probleme et je ne trouve pas la solution, a tous azar si vous voyer un soluce...

voila, mon soft estmultilanguage et j'utilise un RES de language.

dans mon Form1 j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.SetLangue(id:integer);
begin
// Menu
    Fichier1.Caption:=LoadStr(id*1000+1);
    Listeactuelle1.Caption:=LoadStr(id*1000+2);
    Quiter1.Caption:=LoadStr(id*1000+3);
    Principe1.Caption:=LoadStr(id*1000+4);
bla
bla
bla
end;
avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
begin
  Id_Langue:=1;
  SetLangue(1);
end;


dans ma form3 j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm3.SetLangue(id:integer);
begin
    Form3.Caption:=LoadStr(id*1000+330);
    Label5.Caption:=LoadStr(id*1000+331);
    Label6.Caption:=LoadStr(id*1000+332);
    Label7.Caption:=LoadStr(id*1000+333);
    Label8.Caption:=LoadStr(id*1000+334);
    Label9.Caption:=LoadStr(id*1000+335);
    Label10.Caption:=LoadStr(id*1000+336);
    //Label12.Caption:=LoadStr(id*1000+337);
    Button1.Caption:=LoadStr(id*1000+338);
    //.Caption:=LoadStr(id*1000+339);
end;
et :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
procedure TForm3.FormActivate(Sender: TObject);
begin
  Id_Langue:= Form1.Id_Langue;
  SetLangue(Form1.Id_Langue);
end;
mon probleme est que si je clic sur rien dans la form1
rien ne s'affiche dans la form3 :-(
mais dans la form1 tout s'affiche quand meme.
je suis obligé de cliker sur une langue pour avoir
quelque chose sur ma form3 :-(

voyez vous mon probleme ?