如何在文本框里输入回车触发Button1Click事件的呢？

[flew0214]

如题。
要求：在文本框里输入回车触发Button1Click事件，
或是条形码扫描器读入数据（自带回车)后回车触发Button1Click事件。
这样怎么弄呢？有没有相关的例子或帖子可以学习下，先谢谢大家的关注了。

[zshsuming]

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

[flew0214]

没报错，但是我按回车，和条码没反应，我再试下，哪里出问题了？

[zshsuming]

什么叫没反应？你Button的OnClick事件里面写东西了没？

[IDWB]

把Button1的default设置为true

[flew0214]

对了就是BUTTON1的DEFAULT设置的问题，多谢。

[zshsuming]

我是delphi2007，不用设置button1的这个属性啊，请问4楼why？