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; |