Delphi设计可中/英文切换的界面技巧
来源：岁月联盟
编辑：exp
时间：2009-05-01
在一些软件中，我们经常会看到界面语言切换功能，不过程序需要的这些各国语言信息都封装在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环境下调试通过）
|
