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

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

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

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

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

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