TDBNavigator导航条的图标可以改吗?

解决方案 »

  1.   

    它的图标不可改变,但你可用actionlist+btn来做,
      

  2.   

    可以改的。
    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;