|
程序运行时我们查找当前目录下所有的语言配置文件（*ini）为了达到这个目的我编写了如下的函数搜索目录下所有的语言配置文件的文件名然后将文件名去掉ini扩展名保存返回 function TFormSearchLanguagePack:TStrings; var ResultStrings:TStrings; DosError:integer; SearchRec:TsearchRec; begin ResultStrings:=TStringListCreate; DosError:=FindFirst(ExtractFilePath(ParamStr())+*ini faAnyFile SearchRec); while DosError= do begin { 返回的文件名并去掉末尾的ini字符 } ResultStringsAdd(ChangeFileExt(SearchRecName)); DosError:=FindNext(SearchRec); end; FindClose(SearchRec); Result:=ResultStrings; end; 在Form建立的事件中添加代码将目录下所有的语言文件名加入选择列表框中 procedure TFormFormCreate(Sender: TObject); begin ComboBoxItemsAddStrings(SearchLanguagePack); end; 程序的重点在如何切换语言在ComboBox的OnChange事件中进行切换操作 这里我写了SetActiveLanguage过程用于实现这一操作 procedure TFormComboBoxChange(Sender: TObject); begin SetActiveLanguage(ComboBoxText); end; 其中SetActiveLanguage代码如下 procedure TFormSetActiveLanguage(LanguageName:string); const Translations=Translations; Messages=Messages; var frmComponent:TComponent; i:Integer; begin with TInifileCreate(ExtractFilePath(ParamStr())+LanguageName+ini) do begin for i:= to ComponentCount do { 遍历Form组件 } begin frmComponent:=Components[i]; if frmComponent is TLabel then { 如果组件为TLabel型则当作TLabel处理以下同 } begin (frmComponent as TLabel)Caption:= ReadString(TranslationsfrmComponentName +Caption(frmComponent as TLabel)Caption); end; if frmComponent is TCheckBox then begin (frmComponent as TCheckBox)Caption:= ReadString(TranslationsfrmComponentName +Caption(frmComponent as TCheckBox)Caption); end; if frmComponent is TButton then begin (frmComponent as TButton)Caption:= ReadString(TranslationsfrmComponentName +Caption(frmComponent as TButton)Caption); (frmComponent as TButton)Hint:= ReadString(TranslationsfrmComponentName +Hint(frmComponent as TButton)Hint); end; if frmComponent is TMenuItem then begin (frmComponent as TMenuItem)Caption:= ReadString(TranslationsfrmComponentName +Caption(frmComponent as TMenuItem)Caption); end; end; M:=ReadString(MessagesMM); end; end; 在这个过程中我们遍历了Form中的所有组件根据他们的类别和组件名动态的从ini配置文件中读出应该显示的语言文字 用遍历组件的方法比一个一个写出具体的组件维护起来要方便很多代码的适应性也更强 其中M为一个字符串变量这样提示消息也能切换比如在Button的Click事件中 procedure TFormButtonClick(Sender: TObject); begin ShowMessage(M); end; 就可以根据不同的语言给出不同的提示文字 好了整个工程就做完了你可以运行测试一下是不是切换迅速而且无闪烁 |
