控件名称
CAPTION属性值
HINT属性值
Button1
中文
Chinese
Button2
英文
English
Button3
忽略
Ignore
CheckBox1
一般
General
CheckBox2
高级
Advanced
GroupBox1
信息
Information
PopupMenu1
N1
当前日期
Current Date
N2
帮助
Help
N3
关于
About
N4
退出
Exit
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;