Discussion :

[pierre987321]

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 ?

[markk]

Slt
Quand tu passe dans TForm3.FormActivate est tu sur que ton Form1.Id_Langue est bien initialisé (à initialiser sur FormCreate de ta Form1).

[pierre987321]

bin j'ai rien mi dans FormCreate de Form1.
il faut faire quoi ? de quel style ?

[Gaadek]

Du style

Code :

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

1
2
3
4
5
TForm1.OnCreate
begin
  Id_Langue:=1;
  SetLangue(1);
end;

Comme ça, par défaut ton logiciel charge la langue numéroté 1.

[markk]

Le OnCreate est accessible depuis l'onglet evenement :
Tu selectionne ta fiche Form1, puis sur le OnCreate de "Evenement" tu double clic et place le code d'initialisation.

[pierre987321]

hhhaaa... sa marche pas !

[aityahia]

déjà l'idée de réinitialiser la langue a chaque activation de tes fiche est inutile si c’elle si reste inchangé a mon avis dans ton c’est l’utilisateur qui choisi a un moment donnée de changer la langue de l’interface de application.
Si c’est le case c’est a se moment la qui le faut réinitialiser tes captions des tes toutes tes fiche même si elle ne sont pas visible, mais il faut faire attendtion au fiche créer dynamiquement qu’il faut initialiser dans l’événement OnCreate.

[pierre987321]

c'est OK sa marche avec :

Code :

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

1
2
3
4
5
 
begin
  Id_Langue:=1;
  SetLangue(1);
end;

il y avai juste un probleme avec un autre begin dans la procedure...

merci a tous pour votre aide