DELPHI dbgrid 选中的是第几行 怎么判断?

先用ADOQuery连接数据库在DBgrid内显示出来~~~~之后在DBgrid的OnCellClick事件写如下代码
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
self.Edit1.Text:= inttostr(Column.ID); //列号
self.Edit2.Text:= inttostr(self.ADOQuery1.RecNo); //行号
end;

 

使用DataSource.DataSet.RecNo可以得到dbgrid选中的是第几行，示例代码如下：

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(dbgrd1.DataSource.DataSet.RecNo));
end;

效果如下：