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按鈕。