网站服务器搭建的步骤,免费手机网站制作,做篮球网站用的背景图片,开发者选项长期开启会怎样越来越多的程序使用了多国语言切换#xff0c;虽然DELPHI自带多语言包的添加和配置#xff0c; 但是那种方法在切换语言时界面会出现闪烁#xff0c;而且实现起来很麻烦#xff0c;这里我介绍给大家的是利用INI文件来读取界面的语种文字#xff0c; 用这种方法#x…越来越多的程序使用了多国语言切换虽然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扩展名保存返回 function TForm1.SearchLanguagePack:TStrings; var ResultStrings:TStrings; DosError:integer; SearchRec:TsearchRec; begin ResultStrings:TStringList.Create; DosError:FindFirst(ExtractFilePath(ParamStr(0)) *.ini , faAnyFile, SearchRec); while DosError0 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; 就可以根据不同的语言给出不同的提示文字。 好了整个工程就做完了你可以运行测试一下是不是切换迅速而且无闪烁。
