【例程】：
    在窗体form1中放入table1,datasource1,dbgrid1,设好联连关系，使 dbgrid1 中能正确显示出table1的数据。然后：
procedure TForm1.DBGrid1KeyPress(Sender: TObject;
var Key: Char);
begin
  with DBGrid1 do
    if Key=#13 then
      DBGrid1CellClick(Columns[SelectedIndex]);
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  with DBGrid1 do
    showmessage(format('row=%d',[SelectedIndex]));
end;

（出处：www.delphibbs.com）