在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目录下。
posted on 2014-02-05 20:45  向北方 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/China3S/p/3538414.html

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值