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

Question

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

Answer 1

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

Answer 2

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

Answer 3

confirmdelete属性设为falseprocedure 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;

Answer 4

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;

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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