Delphi用ini文档实现界面无闪烁多语言转换
越来越多的程序使用了多国语言切换,虽然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 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;
就可以根据不同的语言给出不同的提示文字。
好了,整个工程就做完了,你可以运行测试一下,是不是切换迅速而且无闪烁。
Delphi用ini文档实现界面无闪烁多语言转换相关推荐
- QT5 界面截图保存到本地+输出PDF/WORD格式文档+QT界面中文乱码及输出PDF中文乱码的解决(亲身实践并且成功)
最近做了一个和QT5有关的项目,遇到很多问题也学习到不少,特意写下来希望帮到更多的人.(我的版本VS2017+QT5.12.0) 一.QT5截图并保存到本地 在头文件添加必须项 #include &l ...
- 软件工程 期末大作业参考 【餐厅点餐系统 】(面向对象模型:需求分析+面向对象设计书+可行性分析+测试文档+java界面)
软件工程大作业(餐厅管理系统)参考:需求分析+面向对象设计书+可行性分析+测试文档+JAVA项目 一.需求分析部分截图 二.面向对象设计书部分截图 三.可行性分析部分截图 四.测试文档部分截图 本文主 ...
- java aspose 导出word_aspose.words导出html 转word文档带图片,(无网络也可以看图)
aspose-words-14.9.0-jdk16.jar public static void exportWordImpl(Map> ml,OutputStream out){ java.u ...
- 如何借助Vale减少开源社区文档中的负面和偏见语言
整理 | 西狩xs 校对 | 山河已无恙 出品 | CSDN云原生 声明:本文出自CNCF,由技术作家Chris Ward在Chronosphere博客上发表.CSDN将文章翻译成中文,分享给 ...
- office文档、图片、音/视频格式转换工具
1.音频/视屏转换工具VLC https://wiki.videolan.org/Mp3/#Container_formats http://wenku.baidu.com/view/ba73ac ...
- docx文档怎么排列图片_“胶水语言”办公自动化Word篇——使用Python编辑和读取Word文档
python调用word接口主要用到的模板为python-docx,基本操作官方文档有说明. 使用python新建一个word文档,操作就像文档里介绍的那样: from docx import Doc ...
- java 接口文档的格式化_Java Word API - 读写转换处理DOC DOCX HTML PDF HTML格式
Java Word 文档处理API 先进功能 执行邮件合并 使用邮件合并生成报表 插入格式户文本,段落,图像,表格以及其他内容到Word文档中 使用数据库的检索数据填充到Word文档中的表格 创建邮件 ...
- 苹果手机怎么编辑word文档_有关PDF编辑神器,转换word文档不在话下
今天柚子分享的软件有点敏感,所以不发图了,这款软件是专门为PDF服务的,包含很多功能,而且还是破解版的,以下是这款软件的功能介绍: Foxit Reader 相信是很多人的装机必备软件,这一款小巧.快 ...
- [AsciiDoc]_[项目管理]_[适合写书写需求文档的纯文本轻量级标记语言]
场景 markdown适合写短篇文章,但是不适合写书,需求文档这类复杂多页的文档.有什么文本格式适合写需求文档呢?并且能生成PDF或者docx格式方便阅读? 说明 在阅读gradle的userguid ...
最新文章
- 怎么调节手机的刷新率_高刷新率屏幕为何开始流行起来?
- win10设置默认输入法
- winform checkbox要点击两次_这个Winform的UI库也太全了!四十多个控件都在这一个项目里了...
- 数据结构-树与二叉树
- C#LeetCode刷题之#263-丑数(Ugly Number)
- 新词新意—The Sticks 乡下
- 微信支付,银联支付,支付宝支付——三大支付总结
- GB28181流媒体服务LiveGBS启动报错 HTTP Port[10000] In Use
- MySQL建表时Incorrect table definition; there can be only one TIMESTAMP column with CURRENT_TIMESTAMP
- 阶段1 语言基础+高级_1-3-Java语言高级_09-基础加强_第3节 注解_12_注解_概念
- 华为升级鸿蒙系统教程,华为升级鸿蒙系统方法汇总 华为手机各型号升级鸿蒙系统教程...
- html5 跨平台播放器,开源ckplayer 网页播放器, 跨平台(html5, mobile),flv, f4v, mp4, rt...
- Windows实现微信双开
- 有什么免费的思维导图软件可以推荐?
- 零基础学习ORB-SLAM2特征点提取-从原理到源码【李哈哈】
- Hyper-V 和 VMWare 终于可以无缝共存、同时运行了
- ALBB 二叉树中相差最大节点的绝对差值
- USB服务器赋能美团数字化建设
- 【高老师软件需求分析】20级云班课习题答案合集
- 首都师范学院计算机,2020年首都师范大学计算机应用技术考研分析
热门文章
- 内存超频trfc_内存超频教学
- 计算机上没有office2010,《我安装了office2010,为什么桌面-右键-新建中没有excel呢?》 excel文件找不到...
- deepfakes怎么用_[mcj]deepfakesApp使用说明(1)
- 占用系统资源测试_高频性能测试面试题15道
- linux头文件怎么编译,microsoft编译器怎么使用Linux头文件
- Javaweb MVC设计模式、Modle发展史、项目分层和三层架构
- memcpy和memmove的区别以及内存重叠问题
- Xctf练习sql注入--supersqli
- gmp计算机系统课件,EU GMP附录11计算机系统◆问答
- matlab meshgrid函数_matlab入门(三)图像可视化