轻松实现界面无闪烁多语言切换
如果你想向海外推广你的软件的话，就必需考虑推出相应的语言版本，虽然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;
好了，整个工程就做完了，你可以运行测试一下，是不是切换迅速而且无闪烁？