简单问题，谢谢

Question

我想使一个edit的text改变以后，按下回车建就相当于单击了本窗口的某一个按钮，请问要怎样作？谢谢

Answer 1

在KeyPress事件里写
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
     showmessage('回车键按下了！');  //改成你想要的代码
  end;
end;记得给分哦，我这段问题太多，分不够用了。

Answer 2

UP
在Edit的KeyPress事件中：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
     Button1.click;
  end;
end;

Answer 3

procedure TTransferApplyForm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_ENTER  then
    Button1onclick(sender);//按钮的单击事件
end;