unit   Unit1; 

 

interface 

 

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[nbFirst].Glyph:=nil;   //不显示图标 

   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.