在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目录下。

你可能感兴趣的:(message)