幫DBNavigator功能按鈕新增文字說明

Delphi裡的DBNavigator在資料庫程式中是常用的物件，但是預設只有圖示而沒有文字說明，雖然可以使用Hint，但使用上還有覺得少了些什麼，在網路上找了些資料並試作並把部份重點節錄下來。

環境：Win7 + Delphi XE4 試用版

uses
   Vcl.Buttons;

type
  TMyNavigator = class(TDBNavigator);

procedure TForm1.FormCreate(Sender: TObject);
const
   Captions: array[TNavigateBtn] of string = ('第一筆', '上一筆', '下一筆',
       '最後一筆', '插入', '刪除', '編輯', '儲存', '取消', '刷新', '確認更新', '取消更新');
var
   btn: TNavigateBtn;
begin
   for btn := low(TNavigateBtn) to high(TNavigateBtn) do
   with TMyNavigator(DBNavigator1).Buttons[btn] do
   begin
      Layout:=blGlyphTop;
      Caption:=Captions[btn];
   end;
end;

成果：