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

Posted 2021-01-27 癫狂编程

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

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

效果如下：

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

---

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
    Edit2.Text := IntToStr(Column.ID);
    Edit3.Text := IntToStr(Self.Query1.RecNo);
    Edit4.Text := Column.FieldName;
end;