Pour les traductions, tu peux mettre dans un fichier ini, comme section le nom de classe de la TForm, comme Clé le nom d'un control et comme valeur le libellé (un fichier par langue)
Ensuite avec les RTTI (GetPropList et IsPublishedProp), tu peux modifer facilement le contenu de ta form avec une boucle (dans une classe partagée par toute l'appli)
1 2 3 4 5
| [TForm1]
Label1.Caption=Bonjour
Button1.Caption=Hello
LabeledEdit1.Text=Salut
LabeledEdit.EditLabel.Caption=World |
Plus une section
1 2 3
| [MESSAGE]
0000=Est-ce bien raisonnable ?
0001=Voulez-vous modifier ce dossier ? |
MessageDlg(Translate('Est-ce bien prudent ?', 0), mtConfirmation, ...
Il cherche le 0 (0000) et si il le trouve pas, il prend la chaine passée en paramètre !
Avec une TStringList, c'est très rapide (faut juste faire attention à gérer d'éventuel saut d'indice ou doublon)
Partager