怎么响应回车事件，（急）

Question

在一个dbedit中，回车一下，怎么弹出一个dbgird，然后光标指在dbgird
选择数据！！

Answer 1

procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_RETURN) THEN
  begin
    ...
  end;
end;

Answer 2

我凭感觉写的:
dbedit onkeypress
if key:=#13 then
begin
//弹出一个dbgird
dbgird.setfocus;
end;

Answer 3

onkeydown onkeypress 在你的程序中区别不大,你用哪个都可以

Answer 4

说出来都不好意思，DBGIRD没用过

Answer 5

procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = #13 THEN
  begin
   dbgrid1.enable:=true;
   dbgrid1.visibale:=true;
  end;
end;

Answer 6

各位大侠，当我在 dbedit里面回车弹出dbgird以后，再在dbgird里回车，怎么把选择的那一行记录放在dbedit2,dbedit3,dbedit4里？

Answer 7

OnKeyPress=(Sender: TObject; var Key: Word; Shift: TShiftState);在这个事件里面，如
EditKeyPress(Sender: TObject; var Key: Word; Shift: TShiftState);
Begin
  If Key= 13 Then...
    
// If Key= #13 Then 好像不行

Answer 8

各位大侠，当我在 dbedit里面回车弹出dbgird以后，再在dbgird里回车，怎么把选择的那一行记录放在dbedit2,dbedit3,dbedit4里？