一个简单的快捷键问题

Question

我想在edit1中按下enter键时实现点击button1的效果，应该如实现？

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then Button1.Click;
end;

Answer 2

keydown和keypress的key变量是不一样的
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);

Answer 3

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_Return then button1click(sender);
end;