DBGrid真的没有左边方块的单击事件吗？急死我了。

Question

//放一个ApplicationEvents1控件procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  vPoint: TPoint;
begin
  if Msg.hwnd <> DBGrid1.Handle then Exit;
  if Msg.message <> WM_LBUTTONDOWN then Exit;
  vPoint := DBGrid1.ScreenToClient(Point(Mouse.CursorPos.x, Mouse.CursorPos.y));
  if TDrawGrid(DBGrid1).MouseCoord(vPoint.x, vPoint.y).X <> 0 then Exit;
  Caption := Format('测试<%.6f>', [Now]);
end;

Answer 1

伴水大虾的方法不错，但
我现在想实现一点左边的方块，和DBGrid相连的ADOQuery的记录指针移动到点击的方块对应的记录。
应该把Caption := Format('测试<%.6f>', [Now]);换成什么呢？
大虾们，HELP ME。这对我来说太难了。

Answer 2

DBGrid1.EditorMode := True; //?????????????

Answer 3

加了DBGrid1.EditorMode := True; 
还是不行啊。
伴水兄，不知你明不明白我的意思。
我要实现左键单击方块一下，就把和次方块在一行上的记录各字段的值赋给
那些Edit输入框,但现在要点击好几下，各Edit输入框中的值才变为对应的记录的各字段的值，求你帮帮我，好吗？这个问题我真是解决不了了。