如何在表格里面加显示记录个数的状态栏？

Question

在表格的下部，水平滚动条上方加显示表格里记录个数的状态栏，怎么实现？

Answer 1

{Panel、DBGrid、StatusBar}procedure TForm1.RcdCount(DataSet: TDataSet);
begin
  Self.StatusBar1.Panels[0].Text := InttoStr(DataSet.RecordCount);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.DBGrid1.Parent := Panel1;
  Self.StatusBar1.Parent := Panel1;
  Self.DBGrid1.Align := alClient;
  if Self.StatusBar1.Panels.Count < 1 then
    Self.StatusBar1.Panels.Add;
  with Self.DBGrid1.DataSource.DataSet do begin
    AfterOpen := Self.RcdCount;
    AfterScroll := Self.RcdCount;
  end;
end;

Answer 2

放一个Edit，宽度设成一样，也就是这个效果了。
记得ReadOnly设置成true

Answer 3

用一个label，label1.caption:=dataset.recordcount.

Answer 4

刀友说得对，页面上加一个状态条，把recordcount的值赋过去就行了。
水平滚动条上方的话，可能要用传说中的grideh