RT

解决方案 »

  1.   

    messagebox是不是可以实现,不过中文button可能不行。
      

  2.   

    新建一个工程,将
    ......\Borland\Delphi6\Source\Vcl\Consts.pas
    加入工程。看有什么不顺眼的英文,改成中文,如:
    SMsgDlgConfirm = 'Confirm';
    SMsgDlgYes = '&Yes';
    改成
    SMsgDlgConfirm = '确认';
    SMsgDlgYes = '是(&Y)';
    编译该工程,将生成的Consts.dcu拷贝到...\Borland\Delphi6\Lib覆盖原文件即可。重新启动Delphi,来个MessageDlg看效果,标题和按钮都是中文(如果你改了的话)
      

  3.   

    用Application.MessageBox,不用那么麻烦
      

  4.   

    Application.MessageBox('内容中文','标题中文',mb_ok+mb_iconasterisk);
      

  5.   

    以前看过一个HOOK MessageBox的原代码的,不过是VB的。
      

  6.   

    把Borland\Delphi6\Source\Vcl\Consts.pas的代碼用中文替代掉就可以.