可以改的。 procedure TForm1.FormCreate(Sender: TObject); var i,j:integer; begin j:=0; for i:=0 to DBNavigator1.ControlCount-1 do if DBNavigator1.Controls[i] is TNavButton then begin TNavButton(DBNavigator1.Controls[i]).NumGlyphs:=1; ImageList1.GetBitmap(j,TNavButton(DBNavigator1.Controls[i]).Glyph); case TNavButton(DBNavigator1.Controls[i]).Index of nbFirst: TNavButton(DBNavigator1.Controls[i]).Caption:='第一条'; nbPrior: TNavButton(DBNavigator1.Controls[i]).Caption:='上一条'; nbNext: TNavButton(DBNavigator1.Controls[i]).Caption:='下一条'; nbLast: TNavButton(DBNavigator1.Controls[i]).Caption:='最后一条'; nbInsert: TNavButton(DBNavigator1.Controls[i]).Caption:='新增'; nbDelete: TNavButton(DBNavigator1.Controls[i]).Caption:='删除'; nbEdit: TNavButton(DBNavigator1.Controls[i]).Caption:='修改'; nbPost: TNavButton(DBNavigator1.Controls[i]).Caption:='存盘'; nbCancel: TNavButton(DBNavigator1.Controls[i]).Caption:='取消'; nbRefresh: TNavButton(DBNavigator1.Controls[i]).Caption:='刷新'; end; inc(j); end; end;
procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
begin
j:=0;
for i:=0 to DBNavigator1.ControlCount-1 do
if DBNavigator1.Controls[i] is TNavButton then
begin
TNavButton(DBNavigator1.Controls[i]).NumGlyphs:=1;
ImageList1.GetBitmap(j,TNavButton(DBNavigator1.Controls[i]).Glyph);
case TNavButton(DBNavigator1.Controls[i]).Index of
nbFirst: TNavButton(DBNavigator1.Controls[i]).Caption:='第一条';
nbPrior: TNavButton(DBNavigator1.Controls[i]).Caption:='上一条';
nbNext: TNavButton(DBNavigator1.Controls[i]).Caption:='下一条';
nbLast: TNavButton(DBNavigator1.Controls[i]).Caption:='最后一条';
nbInsert: TNavButton(DBNavigator1.Controls[i]).Caption:='新增';
nbDelete: TNavButton(DBNavigator1.Controls[i]).Caption:='删除';
nbEdit: TNavButton(DBNavigator1.Controls[i]).Caption:='修改';
nbPost: TNavButton(DBNavigator1.Controls[i]).Caption:='存盘';
nbCancel: TNavButton(DBNavigator1.Controls[i]).Caption:='取消';
nbRefresh: TNavButton(DBNavigator1.Controls[i]).Caption:='刷新';
end;
inc(j);
end;
end;