不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

新手请教，如何汉化DBNavigator删除时提示的"Delete record ?"

楼主ynduanlian（进一步海阔天高，退一步粉身碎骨）2002-04-28 16:11:48 在 Delphi / VCL组件开发及应用提问

新手请教，如何汉化DBNavigator删除时提示的"Delete record ?"为中文？
我找了DBConsts.pas中的"Delete record ?"换为中文，编译我的项目，不行。问题点数：100、回复次数：10Top

1 楼macrowxm（mickey）回复于 2002-04-28 16:23:43 得分 0

你可以先告诉我如何DBNavigator的按钮加文字吗？Top

2 楼neilwq（啄木鸟）回复于 2002-04-28 16:26:56 得分 50

confirmdelete属性设为false
在onclick中写
Case Button of
nbdelete:begin
....
end;Top

3 楼noflybird（东方不亮西方亮）回复于 2002-04-28 16:28:08 得分 0

DBNavigator 有Hints属性，缺省为英文，打开Hints编辑，把英文替换为相应的中文即可。

祝成功！！Top

4 楼SPIRIT0220（游侠）回复于 2002-04-28 16:31:46 得分 30

confirmdelete属性设为false

procedure TF_User_Enter.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
if Button=nbDelete then
if MessageDlgPos('是否删除记录?',mtConfirmation, [mbYes,mbNo], 0, 200, 200)=mrNO then
abort;
end;Top

5 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-04-28 16:31:55 得分 0

procedure TForm1.FormCreate(Sender: TObject);
begin
DBNavigator1.Hints.Text :=
'最前一条'#13#10 +
'前一条'#13#10 +
'后一条'#13#10 +
'最后一条'#13#10 +
'插入记录'#13#10 +
'删除记录'#13#10 +
'编辑记录'#13#10 +
'提交编辑'#13#10 +
'取消编辑'#13#10 +
'刷新数据'#13#10;
DBNavigator1.ShowHint := True;
end;
Top

6 楼macrowxm（mickey）回复于 2002-04-28 16:32:43 得分 0

那只是闪一下的提示。我要在图形下显示文字Top

7 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-04-28 16:34:41 得分 10

修改，并编译到($Delphi)\lib目录
C:\Program Files\Borland\Delphi6\Source\Vcl\DBConsts.pas
Top

8 楼xiejiye（菩提树业）回复于 2002-04-28 16:39:00 得分 0

……Top

9 楼chao_jian（猫）回复于 2002-04-28 16:58:32 得分 0

To zswang(伴水)(* pascal→c *) :如果修改了DBConsts.pas就不能用回英文了，可以做一个简单的继承，重载带英文提示的方法，比较简单。
“#13#10 ”为什么回车了还要换行？Top

10 楼lastleo（）回复于 2002-04-28 17:19:23 得分 10

InfoPower有一套控件，可以轻松实现所有数据表现控件的汉化工作
即有Internet图标的Top

11 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-04-29 13:12:49 得分 0

to chao_jian:
多行文本就这样，你可以看看Memo1.Lines.Text行是用什么分隔Top