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

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;