GridEh 当前行

DataSet当前行，不是当前选中的行

    int arow = 0;
    arow = cds1->RecNo;
    arow = cds1->RecordCount;
    arow = DBGridEh1->DataRowToRecNo(DBGridEh1->Row);//接近靠谱
    arow = DBGridEh1->TopRow;
    arow = DBGridEh1->TopRowOffset;
    arow = DBGridEh1->DataRowCount();
    arow = DBGridEh1->VisibleRowCount;
    arow = DBGridEh1->Row;//接近靠谱
    arow = DBGridEh1->RowCount;

当grid下拉滚动条时就不准确了

强制选中当前行：

DBgrid1.SelectedRows.CurrentRowSelected=true;

判断当前行是否选中：

  if DBgrid1.SelectedRows.CurrentRowSelected then
    showmessage('Selected');

else

'not select';