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 !