dbgrid上下键选择内容问题

Question

按回车:oncellclick;
用上下键选择内容:吧form的keypreview设为true，判断dbgrid在取得焦点的时候，如果有上下键的按下，执行数据表的next和last操作

Answer 1

设置：
form1 keypreview true;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if DBGrid1.Focused then
  begin
    if Key = 13 then
      Edit1.Text := DBGrid1.SelectedField.AsString
  end;
end;