各位高手，一个获取Dbgrid行列的问题！！

Question

要在两个属性里加
举例如下，其中label1显示行，label2显示列
一个是
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  label1.Caption:=inttostr(dbgrid1.DataSource.DataSet.recno);  label2.caption:=inttostr(dbgrid1.SelectedIndex);
end;另一个是
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  label1.Caption:=inttostr(dbgrid1.DataSource.DataSet.recno);  label2.caption:=inttostr(dbgrid1.SelectedIndex);
end;

Answer 1

如果你的问题和我的理解是一样的话，
看安装目录Borland\Delphi5\Demo\DB\MastApp\MastApp.dpr工程，
里面有。