type
    MyDBG=class(DBGrid)
    public
      property ColCount; //列数
      property Col;      //当前列
      property RowCount; //行数
      property Row;      //当前行
    end;  作为新控件安装,代替DBGrid用。