edit的按键事件响应！

Question

我用edit作为查询值的输入筐，请问如何让我的edit在enter键按下的时候自动执行查许语句（也就是button的代码）  谢谢

Answer 1

在EDIT的KEYDOWN里面写
if key=vk_return then
begin
  ..........
end;
OK?

Answer 2

//在onkeypress中写
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
     .........
  end;
end;

Answer 3

是不错，但我的更好 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
     button1click(sender);
  end;
end;

Answer 4

yuzhantao(找不到女朋友只好养条狗) 的更好一些