当前位置:编程学习 > Delphi >>

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

在一些软件中,我们经常会看到界面语言切换功能,不过程序需要的这些各国语言信息都封装在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 ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,