DBNavigate控件加Caption

zswang ：

procedure TForm1.FormCreate(Sender: TObject);

var

 I: Integer;

begin

 TNavButton(Components[I]).Layout :=blGlyphTop;

 with DBNavigator1 do for I := 0 to ComponentCount - 1 do

   if Components[I] is TNavButton then begin

     case TNavButton(Components[I]).Index of

       nbFirst: TNavButton(Components[I]).Caption := '首笔';

       nbPrior: TNavButton(Components[I]).Caption := '上笔';

       nbNext: TNavButton(Components[I]).Caption := '下笔';

       nbLast: TNavButton(Components[I]).Caption := '末笔';

       nbInsert: TNavButton(Components[I]).Caption := '新增';

       nbDelete: TNavButton(Components[I]).Caption := '删除';

       nbEdit: TNavButton(Components[I]).Caption := '修改';

       nbPost: TNavButton(Components[I]).Caption := '存档';

       nbCancel: TNavButton(Components[I]).Caption := '取消';

       nbRefresh: TNavButton(Components[I]).Caption := '刷新';

     end;

   end;

end;