My customers complain that they feel puzzled about those buttons'
functions, and they hate to wait for "hint"s. :(

{Define a new class as a desendant of TDBNavigator, and assign captions to TDBNavigator's buttons}

type

  TZxgDBNavigator = class(TDBNavigator)

  private

    //...

  public

    Constructor Create(Aowner:Tcomponent); override;

    //...

  end;



  

const



   DefaultCaptions: array[TNavigateBtn]of string=('FIRST', 'PRIOR', 'NEXT',

     'LAST', 'INSERT', 'DELETE', 'EDIT', 'POST', 'CANCEL', 'REFRESH');



   //  You Can Define DefaultCaptions in your native language, e.g.

   //  Chinese Version is --

   {

   DefaultCaptions: array[TNavigateBtn]of string=('Æðʼ','ÏòÇ°','Ïòºó',

     'ĩβ','²åÈë','ɾ³ý','±à¼­','±£´æ','È¡Ïû','Ë¢ÐÂ');

   }



//...



constructor TZxgDBNavigator.Create(Aowner:Tcomponent);

var

  lp:TNavigateBtn;

begin

  inherited create(Aowner);



  for lp:=low (TNavigateBtn)to high(TNavigateBtn)do

    buttons[lp].Caption:=DefaultCaptions[lp];



end;



//...