在Delphi下，如何使ShowMessage中的按钮中文化

如果你使用messagedlg(对showmessage也适用)可以汉化定义按钮caption的常量，具体操作步骤如下：

1.   打开文件consts.pas(在Delphi安装目录的/source/vcl下)

 

   

 2.   将以下资源字符串常量的值进行改动：    

 

 

      SMsgDlgWarning   =   '警告';  

 

      SMsgDlgError   =   '错误';  

 

      SMsgDlgInformation   =   '信息';  

 

      SMsgDlgConfirm   =   '确认';  

 

      SMsgDlgYes   =   '(&Y)是';  

 

      SMsgDlgNo   =   '(&N)否';  

 

      SMsgDlgOK   =   '确定';  

 

      SMsgDlgCancel   =   '放弃';  

 

      SMsgDlgHelp   =   '(&H)帮助';  

 

      SMsgDlgHelpNone   =   '无效的帮助';  

 

      SMsgDlgHelpHelp   =   '帮助';  

 

      SMsgDlgAbort   =   '(&A)放弃';  

 

      SMsgDlgRetry   =   '(&R)重试';  

 

      SMsgDlgIgnore   =   '(&I)忽略';  

 

      SMsgDlgAll   =   '(&A)全部';  

 

      SMsgDlgNoToAll   =   '(&o)全不';  

 

      SMsgDlgYesToAll   =   '(&A)全是';  

 

 ----   经过这样改动后，对应按钮的热键仍然可以使用。    

 3.打开文件dialogs.pas(在Delphi安装目录的/source/vcl下)  

 

 4.查到ButtonCaptions:  

          把   ButtonCaptions:   array[TMsgDlgBtn]   of   Pointer   =   (  

          @SMsgDlgYes,   @SMsgDlgNo,   @SMsgDlgOK,   @SMsgDlgCancel,  

          @SMsgDlgAbort,@SMsgDlgRetry,   @SMsgDlgIgnore,   @SMsgDlgAll,    

          @SMsgDlgNoToAll,   @SMsgDlgYesToAll,     @SMsgDlgHelp);  

      改为  

          ButtonCaptions:   array[TMsgDlgBtn]   of   string   =   (  

          '是',   '否',   '确定',   '取消',   '退出','重试',   '跳过',    

          '所有',   '全不',   'YesToAll',   '帮助');  

      把   LoadResString(ButtonCaptions[B])   改为ButtonCaptions[B]  

 （注意共有二处，因为上面已经将指针类型改为String，所以这里直接用ButtonCaptions[B] ） 

    5.   修改后编译生成dialog.dcu、consts.dcu文件。（如何编译请参照本博客delphi技巧13）  

   6.           将dialog.dcu、consts.dcu文件拷贝到../delphi6/lib目录下。