关于三语 (简体、繁体、英语) 切换的尝试

在空白窗体上添加 PopupMenu1, 并添加几个测试用的菜单项, 分别命名为: m1、m2、m3、mCn、mBig、mEn;
激活 mCn 的 OnClick 事件和窗体的 OnCreate 事件.

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Menus;



type

  TForm1 = class(TForm)

    PopupMenu1: TPopupMenu;

    m1: TMenuItem;

    m2: TMenuItem;

    m3: TMenuItem;

    mCn: TMenuItem;  //Caption: 简体中文

    mBig: TMenuItem; //Caption: 繁体中文

    mEn: TMenuItem;  //Caption: English

    procedure FormCreate(Sender: TObject);

    procedure mCnClick(Sender: TObject);

  end;



var

  Form1: TForm1;

  LanguageList: TStrings;



implementation



{$R *.dfm}



{转换简体到繁体}

function Cn2Big(CnStr: string): string;

var

  Len: Integer;

begin

  Len := Length(CnStr);

  SetLength(Result, Len);

  LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(CnStr), Len, PChar(Result), Len);

end;



{建立列表: Name 将是英文菜单, Value 将是简体菜单, 繁体是从简体转换得来}

procedure CreateLanguageList;

begin

  with LanguageList do begin

    Clear;

    Add('Default=默认');

    Add('Fit Width=适宽');

    Add('Fit Height=适高');

  end;

end;



{语言变换}

procedure ChangeLanguageList(LangId: Integer);

var

  i: Integer;

begin

  CreateLanguageList;

  with LanguageList do case LangId of

    0: Exit;

    1: for i := 0 to Count - 1 do Values[Names[i]] := Cn2Big(Values[Names[i]]);

    2: for i := 0 to Count - 1 do Values[Names[i]] := Names[i];

  end;

end;



{初始化菜单}

procedure TForm1.FormCreate(Sender: TObject);

begin

  PopupMenu := PopupMenu1;

  PopupMenu1.AutoHotkeys := maManual;

  mBig.OnClick := mCn.OnClick;

  mEn.OnClick := mCn.OnClick;

  mCn.Tag := 0;

  mBig.Tag := 1;

  mEn.Tag := 2;

  mCn.Click;

end;



procedure TForm1.mCnClick(Sender: TObject);

begin

  ChangeLanguageList(TMenuItem(Sender).Tag);

  m1.Caption := LanguageList.Values['Default'];

  m2.Caption := LanguageList.Values['Fit Width'];

  m3.Caption := LanguageList.Values['Fit Height'];

end;



initialization

  LanguageList := TStringList.Create;

finalization

  LanguageList.Free;



end.

---

效果图:

---