如何让DBNavigator删除时对话框的输出的为中文

解决方案 »

  1.   

    我想到了两种方法:1、第一种方法(说起来简单做起来麻烦):由TDBNavigator派生一个MyTDBNavigator,然后重写它的BtnClick方法(但:为了小小一个功能,要派生一个组件,工作量之大,并且甚至只能动态创建实例,有点不值得。)2、第二种方法(说起来麻烦做起来简单):把VDBConsts.pas单元文件拷贝到你的工程目录中去,然后编辑'Delete record?'这个字符串资源,改为中文。这句的位置如下:unit VDBConsts;interfaceresourcestring
      { DBCtrls }
      SFirstRecord = 'First record';
      SPriorRecord = 'Prior record';
      SNextRecord = 'Next record';
      SLastRecord = 'Last record';
      SInsertRecord = 'Insert record';
      SDeleteRecord = 'Delete record';
      SEditRecord = 'Edit record';
      SPostEdit = 'Post edit';
      SCancelEdit = 'Cancel edit';
      SConfirmCaption = 'Confirm';
      SRefreshRecord = 'Refresh data';
      SDeleteRecordQuestion = 'Delete record?';
                    {^^^^^^^^^^^这里^^^^^^^^^^^}
      //.....然后!!!!!!--->把这个修改后的单元添加到你的工程里去,然后---->菜单--->project--->options--->packages--->去掉Build with runtime packages前面的钩(如果本来就没钩,就加上钩编译一遍,然后再反选)然后编译运行一下看看效果!如果你不仅仅想修改这句delete record,而是想把对话框全改成中文的,那就照上面的做法,拷贝修改DBCtrls.pas单元,修改的位置在TDBNavigator.BtnClick方法里,有一句代码,自己找一下! ^_^哪种好用?自己想一下。其他的办法?肯定有,但应该比这两个方法还要麻烦吧。^_^