首页 > > 程序设计 > delphi >

Delphi设计可中/英文切换的界面技巧

2008-02-23 07:14:14来源：互联网阅读 ()

在一些软件中，我们经常会看到界面语言切换功能，不过程序需要的这些各国语言信息都封装在DLL中，有的也存储在INI文件中，下面我就向大家介绍一个小技巧，在Delphi中不需要任何DLL文件和INI文件，就可以实现此功能。

首先新建一工程，然后在窗体FORM1中加入一些控件，在这里我假设加入了如下控件：三个TBUTTON按钮，两个TCHECKBOX，一个TGROUPBOX和一个菜单。

然后把他们的CAPTION属性改为中文信息，再将对应的英文信息放在这些控件的HINT属性中，信息如下：

procedure TForm1.FormCreate(Sender : Tobject);
begin
//初始化，显示中文界面
Button1.Enabled := False;
Button2.Enabled :＝True
end;

procedure TForm1.ChangeState(Mode : Byte); //改变按钮状态
begin
　　if Mode = 1 then //如果是显示中文，则Button1失效，Button2有效
　　　begin
　　　　Button1.Enabled := False;
　　　　Button2.Enabled := True;
　　　End
　　Else
　　　Begin
　　　　Button1.Enabled := True;
　　　　Button2.Enabled := False;
　　　End;
end;

procedure TForm1.Button1Click(Sender: TObject);
　var i:Integer;
　　CS : String;
　Begin
　　ChangeState(Tbutton(Sender).Tag);
　　for i:=0 to ComponentCount-1 do
　　　begin
　　　　//将窗体中的菜单项的中/英文进行切换
　　　　if Components[i] is TMenuItem then
　　　　　begin
　　　　　　CS := TMenuItem(Components[i]).Hint ;
　　　　　　TMenuItem(Components[i]).Hint:= 

TMenuItem(Components[i]).Caption ;
　　　　　　TMenuItem(Components[i]).Caption := CS ;
　　　　end;
　　　//将窗体中的按钮的中/英文进行切换
　　　if Components[i] is TButton then
　　　　begin
　　　　　CS := TButton(Components[i]).Hint ;
　　　　　TButton(Components[i]).Hint := 

TButton(Components[i]).Caption ;
　　　　　TButton(Components[i]).Caption := CS ;
　　　end;
　　　//将窗体中的复选框的中/英文进行切换
　　　if Components[i] is TCheckBox then
　　　　begin
　　　　　CS:=TCheckBox(Components[i]).Hint ;
　　　　　TCheckBox(Components[i]).Hint:= 

TCheckBox(Components[i]).Caption ;
　　　　　TCheckBox(Components[i]).Caption := CS ;
　　　end;
　　　//将窗体中的组合框的中/英文进行切换
　　　if Components[i] is TGroupBox then
　　　　begin
　　　　　CS:=TGroupBox(Components[i]).Hint ;
　　　　　TGroupBox(Components[i]).Hint:= 

TGroupBox(Components[i]).Caption ;
TGroupBox(Components[i]). 

Caption := CS ;
　　　end;
　　end;
end;

最后再将Button2的ONCLICK事件指向Button1的ONCLICK事件，按F9，运行一下，看看效果，切换的速度也非常快，有兴趣的朋友可以试试。（本程序在DELPHI6 WIN2000环境下调试通过）

上一篇：用Delphi进行OpenGL编程学习心得（1）
下一篇： DELPHI编程实现3DS的动画播放

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有