轻松实现界面无闪烁多语言切换

万重 
2001年 34期

　　如果你想向海外推广你的软件的话，就必需考虑推出相应的语言版本，虽然Delphi自带多语言包的添加和配置，但是，用这种方法切换语言时界面会出现闪烁，而且实现起来很麻烦。这里我介绍给大家的是利用INI文件来读取界面的语种文字，用这种方法，不但简单易行，而且在切换的时候不会出现界面闪烁。
　　　　我们从一个例子出发，看看怎么实现语言的切换。
　　　　首先建立一个新工程。放置如下组件：
　　　　MainMenu1: TMainMenu;
　　　　File1: TMenuItem;
　　　　Exit1: TMenuItem;
　　　　Label1: TLabel;
　　　　Button1: TButton;
　　　　CheckBox1: TCheckBox;
　　　　CheckBox2: TCheckBox;
　　　　Button2: TButton;
　　　　Label2: TLabel;
　　　　ComboBox1: TComboBox;
　　　　Label3: TLabel;
　　　　由于要读取INI文件，所以在USES中加入声明IniFiles;然后将Button1和Button2的ShowHint属性设置为True;其中我们用ComboBox1来显示可供选择的语言并进行语言选择。
　　　　我们在程序的目录下编辑如下的Chinese GB．Ini文件：
　　　　//////////////////////////////
　　　　;翻译的一些规则;
　　　　;翻译前，拷贝 Chinese GB．ini 改名为 yourlanguage．ini
　　　　;仅仅翻译符号“=”后的文字
　　　　[Translations]
　　　　Label1．Caption=文字1
　　　　Label2．Caption=文字2
　　　　Label3．Caption=语言
　　　　Button1．Caption=按钮1
　　　　Button2．Caption=按钮2
　　　　Button1．Hint=按钮1＿提示
　　　　Button2．Hint=按钮2＿提示
　　　　CheckBox1．Caption=复选框1
　　　　CheckBox2．Caption=复选框2
　　　　File1．Caption=文件
　　　　Exit1．Caption=退出
　　　　[Messages]
　　　　M1=信息框测试
　　　　////////////////////////////////
　　　　同样的方法编辑一个名为English．ini的文件，将“=”左边的文字改为英文。
　　　　例如：Label1．Caption=Label1
　　　　程序运行时，我们查找当前目录下所有的语言配置文件（*．ini）。为达到这个目的，我们编写如下的函数搜索目录下所有的语言配置文件的文件名，然后将文件名去掉ini扩展名保存在TStrings中返回：
　　　　function TForm1．SearchLanguagePack:TStrings;
　　　　var
　　　　ResultStrings:TStrings;
　　　　DosError:integer;
　　　　SearchRec:TsearchRec;
　　　　begin
　　　　ResultStrings:=TStringList．Create;
　　　　DosError:=FindFirst（ExtractFilePath（ParamStr（0）　+＇*．ini＇，faAnyFile，SearchRec）;
　　　　while DosError=0 do
　　　　begin
　　　　{ 返回文件名并去掉末尾的．ini字符}
　　　　ResultStrings．Add（ChangeFileExt（SearchRec．Name，＇＇））;　
　　　　DosError:=FindNext（SearchRec）;
　　　　end;
　　　　FindClose（SearchRec）;
　　　　Result:=ResultStrings;
　　　　end;
　　　　在Form的建立事件中添加代码，将目录下所有的语言文件名加入到选择列表框中。
　　　　procedure TForm1．FormCreate（Sender: TObject）;
　　　　begin
　　　　ComboBox1．Items．AddStrings（SearchLanguagePack）;
　　　　end;
　　　　程序的重点在于如何切换语言，我们在ComboBox1的OnChange事件中进行切换操作。这里我写了SetActiveLanguage过程用于实现这一操作。
　　　　procedure TForm1．ComboBox1Change（Sender: TObject）;
　　　　begin
　　　　SetActiveLanguage（ComboBox1．Text）;
　　　　end;
　　　　其中SetActiveLanguage代码如下：
　　　　procedure TForm1．SetActiveLanguage（LanguageName:string）;
　　　　const
　　　　Translations=＇Translations＇;
　　　　Messages=＇Messages＇;
　　　　var
　　　　frmComponent:TComponent;
　　　　i:Integer;
　　　　begin
　　　　with TInifile．Create（ExtractFilePath（ParamStr（0）　+LanguageName+＇．ini＇） do
　　　　begin
　　　　for i:=0 to ComponentCount-1 do
　　　　{ 遍历Form组件 }
　　　　begin
　　　　frmComponent:=Components[i];
　　　　if frmComponent is TLabel then
　　　　{ 如果组件为TLabel类型则当作TLabel处理，以下同 }
　　　　begin
　　　　（frmComponent as TLabel）．Caption=ReadString（Translations，frmComponent．Name+＇．Caption＇，（frmComponent as TLabel）．Caption）;
　　　　end;
　　　　if frmComponent is TCheckBox then
　　　　begin
　　　　（frmComponent as TCheckBox）．Caption:=ReadString（Translations，frmComponent．Name+＇．Caption＇，（frmComponent as TCheckBox）．Caption）;
　　　　end;
　　　　if frmComponent is TButton then
　　　　begin
　　　　（frmComponent as TButton）．Caption:=
　　　　ReadString（Translations，frmComponent．Name+＇．Caption＇，（frmComponent as TButton）．Caption）;
　　　　（frmComponent as TButton）．Hint:=
　　　　ReadString（Translations，frmComponent．Name+＇．Hint＇，（frmComponent as TButton　．Hint）;
　　　　end;
　　　　if frmComponent is TMenuItem then
　　　　begin
　　　　（frmComponent as TMenuItem）．Caption:=ReadString（Translations，frmComponent．Name+＇．Caption＇，（frmComponent as TMenuItem）．Caption）;
　　　　end;
　　　　end;
　　　　M1:=ReadString（Messages，＇M1＇，M1;
　　　　end;
　　　　end;
　　　　在这个过程中，我们遍历了Form中的所有组件，根据它们的类别和组件名动态的从ini配置文件中读出应该显示的语言文字。
　　　　用遍历组件的方法比一个一个写出具体的组件维护起来要方便很多，代码的适应性也更强。
　　　　其中M1为一个字符串变量，这样提示消息也能切换，比如在Button1的Click事件中就可以根据不同的语言给出不同的提示文字。
　　　　procedure TForm1．Button1Click（Sender: TObject）;
　　　　begin
　　　　ShowMessage（M1）;
　　　　end;
　　　　好了，整个工程就做完了，你可以运行测试一下，是不是切换迅速而且无闪烁？ 
 