DBNavigator数据表的功能条加提示搞不定求助

lxl16

DBNavigator   数据表的功能条


DBNavigator使用起来不错，但是按钮上“＋”、“－”等含义对于中国的用户不习惯，
甚至不知道是什么含义

看到网上说可以加上提示，却搞不定

主是要代码，看到Type中有一行是  TMyNavgator = class(TDBNavigator);
这个不知是如何加上去的，手工加，会有问题


后来听说要装第三方控件   ehlib

装上后，在启动时，会报一些下边的错
  

之后进到XE7，拉出那功能条，还是没成功，不知是不是和那错有关
若有关，不知如何处理，请高手指点一下，谢谢先

---------------------------------------------
另附上有人成功的相关代码

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls;

type
TMyNavgator = class(TDBNavigator);
TForm1 = class(TForm)
DBNavigator1: TDBNavigator;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
TMyNavgator(DBNavigator1).Buttons[nbFirst].Caption:= '首条 ';
TMyNavgator(DBNavigator1).Buttons[nbPrior].Caption:= '上一条 ';
TMyNavgator(DBNavigator1).Buttons[nbNext].Caption:= '下一条 ';
TMyNavgator(DBNavigator1).Buttons[nbLast].Caption:= '末条 ';
TMyNavgator(DBNavigator1).Buttons[nbInsert].Caption:= '添加 ';
TMyNavgator(DBNavigator1).Buttons[nbDelete].Caption:= '删除 ';
TMyNavgator(DBNavigator1).Buttons[nbEdit].Caption:= '修改 ';
TMyNavgator(DBNavigator1).Buttons[nbPost].Caption:= '提交 ';
TMyNavgator(DBNavigator1).Buttons[nbCancel].Caption:= '撤销 ';
TMyNavgator(DBNavigator1).Buttons[nbRefresh].Caption:= '刷新 ';
end;
end.

lxl16

这问题有没有哪位高手给指点一下呢