怎么激活在EDIT中输入数据后按下回车键，让它等效一Button1的Click事件?

Question

帮帮小弟，怎么激活在EDIT中输入数据后按下回车键，让它等效一Button1的Click事件,先谢谢了。

Answer 1

触发keypress事件edit1keypress();
begin
  button1click(nil);
end;

Answer 2

补充：
begin
 if key = #13  then
   button1click(nil);
end

Answer 3

edit1keypress();
begin
  if key=$0d then
     button1click(nil);
end;

Answer 4

在EDTI的KEYPRESS事件中写代码啊！，
IF KEY IN [#13] THEN
.......//你执行的代码，
END;

Answer 5

if key = #13  then
   button1click(nil);

Answer 6

procedure Tfrom1.edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key =VK_RETURN   then  button1onClick(nil);
end;

Answer 7

edit1keypress();
begin
  if key=#13 then  button1.click;
end;

Answer 8

在button的onkeypress事件中加入
if (edit1.text<>'') and (key=#13) then
button1click(sender);

Answer 9

小飞侠的答案最为周全但是应该在edit 的onkeypress中加入该代码if (edit1.text<>'') and (key=#13) then
button1click(sender);