我想，這方面的資料之前已有很多人發表了，    ■【發表】以INI檔實現多國語言的小範例  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19769    ■ 如何寫多國語言程式  http://delphi.ktop.com.tw/topic.php?topic_id=18402    ■【Delphi】【分享】利用INI文件實現界面無閃爍多語言切換  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23151    但可能是因為都是 Delphi 的版本，還是有一些網友來信問到實作上的問題，此篇是使用 BCB 來開發的，其實，有很多種方法可以處理所有元件的語言介面，本篇只是其中的一種方式。如果您不想下載，可以直接參考以下的 code

//---------------------------------------------------------------------------
// 參考資料：
// 【Delphi】【分享】利用INI文件實現界面無閃爍多語言切換 
// http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23151
//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//----------------------------------------------------------------------------//
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//----------------------------------------------------------------------------//
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//----------------------------------------------------------------------------//    void __fastcall TForm1::FormCreate(TObject *Sender)
{
  LangINI=new TIniFile(ExtractFilePath(Application->ExeName) "Language.ini");
}
//----------------------------------------------------------------------------//    void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  delete LangINI;
}
//----------------------------------------------------------------------------//    void __fastcall TForm1::UpdateInterface(AnsiString Language)
{
  Form1->Caption=LangINI->ReadString(Language,"Form1.Caption","Multi-Language Testing");
  for(int i=0;i<Form1->ComponentCount;i  )  // 找出所有 Form1 內的元件
  {
    if(String(Form1->Components[i]->ClassName())=="TLabel") // 如果是 TLabel
    {
      ((TLabel *)Form1->Components[i])->Caption=
        LangINI->ReadString(Language,Form1->Components[i]->Name ".Caption","TLabel Caption");
    }        if(String(Form1->Components[i]->ClassName())=="TButton") // 如果是 TButton
    {
      ((TButton *)Form1->Components[i])->Caption=
        LangINI->ReadString(Language,Form1->Components[i]->Name ".Caption","TButton Caption");
      ((TButton *)Form1->Components[i])->Hint=
        LangINI->ReadString(Language,Form1->Components[i]->Name ".Hint","TButton Hint");
    }
  }
}
//----------------------------------------------------------------------------//    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  UpdateInterface("ChineseBIG5");
}
//----------------------------------------------------------------------------//    void __fastcall TForm1::Button2Click(TObject *Sender)
{
  UpdateInterface("ChineseGB");
}
//----------------------------------------------------------------------------//
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  UpdateInterface("English");
}
//----------------------------------------------------------------------------//

Language.ini

[ChineseBIG5]
Form1.Caption=多國語言系統測試 BCB Version
Label1.Caption=這是測試字串一
Label2.Caption=這是測試字串二
Button1.Caption=繁體中文
Button1.Hint=切換到繁體中文系統
Button2.Caption=Chinese GB
Button2.Hint=Switch to Chinese GB
Button3.Caption=English
Button3.Hint=Switch to English
FormCaption=Multi-Language Testing    [ChineseGB]
Form1.Caption=嗣弊逄晟炵苀聆彸 BCB Version
Label1.Caption=涴岆聆彸趼睫揹珨
Label2.Caption=涴岆聆彸趼睫揹媼
Button1.Caption=Chinese BIG5
Button1.Hint=Switch to Chinese BIG5
Button2.Caption=潠极笢恅
Button2.Hint=ピ遙善潠极笢恅炵苀
Button3.Caption=English
Button3.Hint=Switch to English     [English]
Form1.Caption=Multi-Language Testing BCB Version
Label1.Caption=This is a test string 1
Label2.Caption=This is a test string 2
Button1.Caption=Chinese BIG5
Button1.Hint=Switch to Chinese BIG5
Button2.Caption=Chinese GB
Button2.Hint=Switch to Chinese GB
Button3.Caption=English
Button3.Hint=Switch to English

如果您是使用簡體中文系統，請再啟動後，按下 [Chinese GB] 的按鈕，就可以看到簡體中文，如果是繁體中文系統，則按下 [Chinese BIG5] 的按鈕，如果都不是，則請按下 [English] 按鈕。 在繁體中文系統，看 Chinese GB 自然會是亂碼，同理，在簡體中文系統，看 Chinese BIG5 也會是亂碼。 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

附加檔案：34209_MultiLanguage.zip

請問一下dllee 板主 ! 如果在程式中有使用到 TrayIcon1 的元件,並且利用它去 Call PopupMenu1 的元件, 問題就是我不知用什麼方法可以讓 PopupMenu1 元件上的 Menu1,Menu2 等上面的文字也跟著 多國語系做變化 !