汉化问题!!!!!!急 用表来保存各控件的中,英文caption属性 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 zwjchina(蒲石) 这样做是不是太大了 请问在Delphi下将程序做成英文和中文可以互换的界面怎么做? <-------File\New\Resouce Dll wizard还有我现在在做显示一些从数据库中查出的表,用的是DBgrid,我怎样做才能将DBgrid重的表头翻译成中文,表有二三十个,所以请高手指条明路吧!!!<-----------------------------------双击DBGRIDAdd or Fields (or add fields)设置Title.Caption属性----------- 也可在Table,query上双击 To man8888(北京男人) :没明白,请解释一下 《电脑报》上有一个用INI文件保存的,你可以去翻一下。 d5中有:Project->Languages->Add不过我没有做过 dbgrid中的column对象是干什么用的? 用来设置行的属性。ini的内容是不是都公开了? 借花敬佛: (万重的这篇文章在很多地方都有,例程我已上传到[界面]资源区,希望对你有所帮助)利用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 =文字1Label2.Caption =文字2Label3.Caption =语言Button1.Caption =按钮1Button2.Caption =按钮2Button1.Hint =按钮1_提示Button2.Hint =按钮2_提示CheckBox1.Caption =复选框1CheckBox2.Caption =复选框2File1.Caption =文件Exit1.Caption =退出;[Messages];M1 =信息框测试;;//////////////////////////////////////////////////////////////////同样的方法编辑一个名为English.ini的文件,将“=”左边的文字改为英文。例如:Label1.Caption =Label1程序运行时,我们查找当前目录下所有的语言配置文件(*.ini),为了达到这个目的,我编写了如下的函数搜索目录下所有的语言配置文件的文件名,然后将文件名去掉ini扩展名保存返回:function TForm1.SearchLanguagePack:TStrings;varResultStrings:TStrings;DosError:integer;SearchRec:TsearchRec;beginResultStrings:=TStringList.Create;DosError:=FindFirst(ExtractFilePath(ParamStr(0))+'*.ini', faAnyFile,SearchRec);while DosError=0 dobegin{ 返回的文件名并去掉末尾的.ini字符 }ResultStrings.Add(ChangeFileExt(SearchRec.Name,''));DosError:=FindNext(SearchRec);end;FindClose(SearchRec);Result:=ResultStrings;end;在Form建立的事件中添加代码,将目录下所有的语言文件名加入选择列表框中。procedure TForm1.FormCreate(Sender: TObject);beginComboBox1.Items.AddStrings(SearchLanguagePack);end;程序的重点在如何切换语言,在ComboBox1的OnChange事件中进行切换操作。这里我写了SetActiveLanguage过程用于实现这一操作。procedure TForm1.ComboBox1Change(Sender: TObject);beginSetActiveLanguage(ComboBox1.Text);end;其中SetActiveLanguage代码如下:procedure TForm1.SetActiveLanguage(LanguageName:string);constTranslations='Translations';Messages='Messages';varfrmComponent:TComponent;i:Integer;beginwith TInifile.Create(ExtractFilePath(ParamStr(0))+LanguageName+'.ini') dobeginfor i:=0 to ComponentCount-1 do { 遍历Form组件 }beginfrmComponent:=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 thenbegin(frmComponent as TCheckBox).Caption:=ReadString(Translations,frmComponent.Name+'.Caption',(frmComponent as TCheckBox).Caption);end;if frmComponent is TButton thenbegin(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 thenbegin(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);beginShowMessage(M1);end;就可以根据不同的语言给出不同的提示文字。好了,整个工程就做完了,你可以运行测试一下,是不是切换迅速而且无闪烁。作者:万重(转载请保持完整) 2000.6.9 借花敬佛: (万重的这篇文章在很多地方都有,例程我已上传到[界面]资源区,希望对你有所帮助)利用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 =文字1Label2.Caption =文字2Label3.Caption =语言Button1.Caption =按钮1Button2.Caption =按钮2Button1.Hint =按钮1_提示Button2.Hint =按钮2_提示CheckBox1.Caption =复选框1CheckBox2.Caption =复选框2File1.Caption =文件Exit1.Caption =退出;[Messages];M1 =信息框测试;;//////////////////////////////////////////////////////////////////同样的方法编辑一个名为English.ini的文件,将“=”左边的文字改为英文。例如:Label1.Caption =Label1程序运行时,我们查找当前目录下所有的语言配置文件(*.ini),为了达到这个目的,我编写了如下的函数搜索目录下所有的语言配置文件的文件名,然后将文件名去掉ini扩展名保存返回:function TForm1.SearchLanguagePack:TStrings;varResultStrings:TStrings;DosError:integer;SearchRec:TsearchRec;beginResultStrings:=TStringList.Create;DosError:=FindFirst(ExtractFilePath(ParamStr(0))+'*.ini', faAnyFile,SearchRec);while DosError=0 dobegin{ 返回的文件名并去掉末尾的.ini字符 }ResultStrings.Add(ChangeFileExt(SearchRec.Name,''));DosError:=FindNext(SearchRec);end;FindClose(SearchRec);Result:=ResultStrings;end;在Form建立的事件中添加代码,将目录下所有的语言文件名加入选择列表框中。procedure TForm1.FormCreate(Sender: TObject);beginComboBox1.Items.AddStrings(SearchLanguagePack);end;程序的重点在如何切换语言,在ComboBox1的OnChange事件中进行切换操作。这里我写了SetActiveLanguage过程用于实现这一操作。procedure TForm1.ComboBox1Change(Sender: TObject);beginSetActiveLanguage(ComboBox1.Text);end;其中SetActiveLanguage代码如下:procedure TForm1.SetActiveLanguage(LanguageName:string);constTranslations='Translations';Messages='Messages';varfrmComponent:TComponent;i:Integer;beginwith TInifile.Create(ExtractFilePath(ParamStr(0))+LanguageName+'.ini') dobeginfor i:=0 to ComponentCount-1 do { 遍历Form组件 }beginfrmComponent:=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 thenbegin(frmComponent as TCheckBox).Caption:=ReadString(Translations,frmComponent.Name+'.Caption',(frmComponent as TCheckBox).Caption);end;if frmComponent is TButton thenbegin(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 thenbegin(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);beginShowMessage(M1);end;就可以根据不同的语言给出不同的提示文字。好了,整个工程就做完了,你可以运行测试一下,是不是切换迅速而且无闪烁。作者:万重(转载请保持完整) 2000.6.9 在select语句中select english as 中文,..,..from .. 大富翁开放了! 想统计memo组件里面的某个单词的数量,请高手赐教,谢谢。 对象与它的属性对象的关系 关于timer的简单问题 用DELPHI编写工作流程软件,大家进来谈谈,要如何实现流程控制? delphi如何调用WORD进行文件管理 哪位兄弟有将ansi码转为十六进制的函数给我发一个。急!急!急!急! 谁有现存的项目计划书Email一份给我? 会的人请进 坐标变换的问题 如何修改dbgrid的某一行的颜色? 怎样让DBGrid有象DBLookupComboBox一样的功能?
还有我现在在做显示一些从数据库中查出的表,用的是DBgrid,我怎样做才能将DBgrid重的表头翻译成中文,表有二三十个,所以请高手指条明路吧!!!<-------
----------------------------
双击DBGRID
Add or Fields (or add fields)
设置Title.Caption属性
-----------
也可在Table,query上双击
不过我没有做过
ini的内容是不是都公开了?
所帮助)
利用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;
就可以根据不同的语言给出不同的提示文字。好了,整个工程就做完了,你可以运行测试一下,是不是切换迅速而且无闪烁。作者:万重(转载请保持完整) 2000.6.9
所帮助)
利用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;
就可以根据不同的语言给出不同的提示文字。好了,整个工程就做完了,你可以运行测试一下,是不是切换迅速而且无闪烁。作者:万重(转载请保持完整) 2000.6.9
select english as 中文,..,..from ..