dbgrid中文本的获得？

Question

在dbgrid单元中输入文本，如何获得当前输入的一串文？（注意，焦点仍在此单元中）

Answer 1

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key= 13 then
    showmessage(DBGrid1.SelectedField.Text);
end;

Answer 2

直接这样取好象取不到
焦点还在当前列的时候，还没有确认此次输入，此时DBGrid1.selectedfield.value=null
可能需要先模拟一个回车事件，
keybd_Event(13,0,0,0)
确认了输入，才可以用
DBGrid1.SelectedField.value取到当前列的值