轻松实现界面无闪烁多语言切换

Author: 万重 Date: 2001年 34期

?牐犎绻阆胂蚝Ｍ馔乒隳愕娜砑幕埃捅匦杩悸峭瞥鱿嘤Φ挠镅园姹荆淙籇elphi自带多语言包的添加和配置，但是，用这种方法切换语言时界面会出现闪烁，而且实现起来很麻烦。这里我介绍给大家的是利用INI文件来读取界面的语种文字，用这种方法，不但简单易行，而且在切换的时候不会出现界面闪烁。
　　?牐犖颐谴右桓隼映龇ⅲ纯丛趺词迪钟镅缘那谢弧?
　　?牐犑紫冉?立一个新工程。放置如下组件：
　　?牐燤ainMenu1: TMainMenu;
　　?牐燜ile1: TMenuItem;
　　?牐燛xit1: TMenuItem;
　　?牐燣abel1: TLabel;
　　?牐燘utton1: TButton;
　　?牐燙heckBox1: TCheckBox;
　　?牐燙heckBox2: TCheckBox;
　　?牐燘utton2: TButton;
　　?牐燣abel2: TLabel;
　　?牐燙omboBox1: TComboBox;
　　?牐燣abel3: TLabel;
　　?牐犛捎谝寥NI文件，所以在USES中加入声明IniFiles;然后将Button1和Button2的ShowHint属性设置为True;其中我们用ComboBox1来显示可供选择的语言并进行语言选择。
　　?牐犖颐窃诔绦虻哪柯枷卤嗉缦碌腃hinese GB．Ini文件：
　　?牐?//////////////////////////////
　　?牐?;翻译的一些规则;
　　?牐?;翻译前，拷贝 Chinese GB．ini 改名为 yourlanguage．ini
　　?牐?;仅仅翻译符号“=”后的文字
　　?牐燵Translations]
　　?牐燣abel1．Caption=文字1
　　?牐燣abel2．Caption=文字2
　　?牐燣abel3．Caption=语言
　　?牐燘utton1．Caption=按钮1
　　?牐燘utton2．Caption=按钮2
　　?牐燘utton1．Hint=按钮1＿提示
　　?牐燘utton2．Hint=按钮2＿提示
　　?牐燙heckBox1．Caption=复选框1
　　?牐燙heckBox2．Caption=复选框2
　　?牐燜ile1．Caption=文件
　　?牐燛xit1．Caption=退出
　　?牐燵Messages]
　　?牐燤1=信息框测试
　　?牐?////////////////////////////////
　　?牐犕姆椒ū嗉桓雒狤nglish．ini的文件，将“=”左边的文字改为英文。
　　?牐犂纾篖abel1．Caption=Label1
　　?牐牫绦蛟诵惺保颐遣檎业鼻澳柯枷滤械挠镅耘渲梦募?*．ini）。为达到这个目的，我们编写如下的函数搜索目录下所有的语言配置文件的文件名，然后将文件名去掉ini扩展名保存在TStrings中返回：
　　?牐爁unction TForm1．SearchLanguagePack:TStrings;
　　?牐爒ar
　　?牐燫esultStrings:TStrings;
　　?牐燚osError:integer;
　　?牐燬earchRec:TsearchRec;
　　?牐燽egin
　　?牐燫esultStrings:=TStringList．Create;
　　?牐燚osError:=FindFirst（ExtractFilePath（ParamStr（0）??+＇*．ini＇，faAnyFile，SearchRec）;
　　?牐爓hile DosError=0 do
　　?牐燽egin
　　?牐爗返回文件名并去掉末尾的．ini字符}??
　　?牐燫esultStrings．Add（ChangeFileExt（SearchRec．Name，＇＇））;?牔?
　　?牐燚osError:=FindNext（SearchRec）;??
　　?牐爀nd;
　　?牐燜indClose（SearchRec）;
　　?牐燫esult:=ResultStrings;
　　?牐爀nd;
　　?牐犜贔orm的建立事件中添加代码，将目录下所有的语言文件名加入到选择列表框中。
　　?牐爌rocedure TForm1．FormCreate（Sender: TObject）;
　　?牐燽egin
　　?牐燙omboBox1．Items．AddStrings（SearchLanguagePack）;
　　?牐爀nd;
　　?牐牫绦虻闹氐阍谟谌绾吻谢挥镅裕颐窃贑omboBox1的OnChange事件中进行切换操作。这里我写了SetActiveLanguage过程用于实现这一操作。
　　?牐爌rocedure TForm1．ComboBox1Change（Sender: TObject）;
　　?牐燽egin
　　?牐燬etActiveLanguage（ComboBox1．Text）;
　　?牐爀nd;
　　?牐犉渲蠸etActiveLanguage代码如下：
　　?牐爌rocedure TForm1．SetActiveLanguage（LanguageName:string）;
　　?牐燾onst
　　?牐燭ranslations=＇Translations＇;
　　?牐燤essages=＇Messages＇;
　　?牐爒ar
　　?牐爁rmComponent:TComponent;
　　?牐爄:Integer;
　　?牐燽egin
　　?牐爓ith TInifile．Create（ExtractFilePath（ParamStr（0）??+LanguageName+＇．ini＇） do
　　?牐燽egin
　　?牐爁or i:=0 to ComponentCount-1 do
　　?牐爗遍历Form组件 }
　　?牐燽egin
　　?牐爁rmComponent:=Components[i];
　　?牐爄f frmComponent is TLabel then
　　?牐爗如果组件为TLabel类型则当作TLabel处理，以下同 }
　　?牐燽egin
　　?牐牐╢rmComponent as TLabel）．Caption??=ReadString（Translations，frmComponent．Name+＇．Caption＇，（frmComponent as TLabel）．Caption）;
　　?牐爀nd;
　　?牐爄f frmComponent is TCheckBox then
　　?牐燽egin
　　?牐牐╢rmComponent as TCheckBox）．Caption:=ReadString（Translations，frmComponent．Name+＇．Caption＇，（frmComponent as TCheckBox）．Caption）;??
　　?牐爀nd;
　　?牐爄f frmComponent is TButton then
　　?牐燽egin
　　?牐牐╢rmComponent as TButton）．Caption:=
　　?牐燫eadString（Translations，frmComponent．Name+＇．Caption＇，（frmComponent as TButton）．Caption）;??
　　?牐牐╢rmComponent as TButton）．Hint:=
　　?牐燫eadString（Translations，frmComponent．Name+＇．Hint＇，（frmComponent as TButton?牐瓾int）;
　　?牐爀nd;
　　?牐爄f frmComponent is TMenuItem then
　　?牐燽egin
　　?牐牐╢rmComponent as TMenuItem）．Caption:=ReadString（Translations，frmComponent．Name+＇．Caption＇，（frmComponent as TMenuItem）．Caption）;
　　?牐爀nd;
　　?牐爀nd;
　　?牐燤1:=ReadString（Messages，＇M1＇，M1;??
　　?牐爀nd;
　　?牐爀nd;
　　?牐犜谡飧龉讨校颐潜槔薋orm中的所有组件，根据它们的类别和组件名动态的从ini配置文件中读出应该显示的语言文字。
　　?牐犛帽槔榧姆椒ū纫桓鲆桓鲂闯鼍咛宓淖榧て鹄匆奖愫芏啵氲氖视π砸哺俊?
　　?牐犉渲蠱1为一个字符串变量，这样提示消息也能切换，比如在Button1的Click事件中就可以根据不同的语言给出不同的提示文字。
　　?牐爌rocedure TForm1．Button1Click（Sender: TObject）;
　　?牐燽egin
　　?牐燬howMessage（M1）;
　　?牐爀nd;
　　?牐牶昧耍龉こ叹妥鐾炅耍憧梢栽诵胁馐砸幌拢遣皇乔谢谎杆俣椅奚了福?