var
  iRow: integer = 0;    procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DataCol = 0 then
    Inc(iRow);
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('DBGrid1 visible row count: '   IntToStr(iRow));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     //顯示行數
     ShowMessage(intToStr(TStringGrid(DBGrid1).RowCount
                          - TStringGrid(DBGrid1).FixedRows));
end;    procedure TForm1.Button2Click(Sender: TObject);
var
   i: integer;
begin
     //估計行數
     i := trunc(DBGrid1.ClientHeight / 
                (TStringGrid(DBGrid1).DefaultRowHeight
                   TStringGrid(DBGrid1).GridLineWidth))
          - TStringGrid(DBGrid1).FixedRows;
     ShowMessage(intToStr(i));
end;