关于回车

Question

当在输入密码后按一下回车就产生跟点击确定的效果是一样的，应该怎么写代码来实现回车呢？请大家帮忙，谢谢！

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then button1.Click;
end;

Answer 2

将Button的Default设置为True， 或将Cancel设置为True，这可以分别响应回车和Esc键这功能不是楼上的方法实现的。

Answer 3

将窗体的KeyPreview属性设为True
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if key=13 then button1.Click;
end;

Answer 4

就是楼上所说的，先把窗体的KeyPreview设为true，然后在要接收回车的Edit的KeyDown或KeyPress加代码
KeyPress是：if key=#13 then button1.onclick(sender);

Answer 5

将窗体的KeyPreview属性设为True
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if key=13 then button1.Click;
end;