UniDBGrid增长显示记录数的label及隐藏refresh按钮

1. 在UniDBgrid的extEvent属性中写入如下代码：

 

function OnAfterCreate(sender)
{
     var toolbar=sender.getDockedItems()[1]; //取出固定在bottom的ToolBar
     toolbar.items.getAt(10).hide(); //取出ToolBar中的Refresh按钮，序号10,隐藏他
     //增长一个显示总记录数的tbtext
     toolbar.add(
     [{
     'id':'pagecount99',
     'xtype':'tbtext',
     'text': '记录总数:' 
      }
     ]
     );
}

2.在Delphi中数据集有变化的地方写入相似代码，这里是在uniFormShow事件中：

 

procedure TMainForm.UniFormShow(Sender: TObject);
begin
   ClientDataSet1.Last;
   UniSession.AddJS(Format('Ext.getCmp("pagecount99").setText("%s");',[' 记录数:'+inttostr(clientdataset1.recordcount)]));
end;

实现的效果：增长了显示记录数的label，隐藏了refresh按钮。