我想把焦点移到Button1上后按回车等于Click操作，应该怎么写呢？（新手，请多指点！）

Question

我想把焦点移到Button1上后按回车等于Click操作，应该怎么写呢？（新手，请多指点！）

Answer 1

把焦点移到Button1上后按回车本身就是等于Click操作啊你直接在CLICK事件中写处理代码就行了啊

Answer 2

将它的DEFAULT属性设为真，在它所属的对话框中按下回车键都能达到这个效果（不管焦点在哪）。

Answer 3

//--窗打开后让Button1得到焦点
procedure TMainFrm.FormShow(Sender: TObject);
begin
  Button1.SetFocus;
end;
//--回车调用Button1的OnClick事件
procedure TMainFrm.edtObjNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 13 then
    Button1Click(Sender);
end;

Answer 4

在button的OnKeyPress事件里面写:
if key=#13 then
  button.click;

Answer 5

1楼正解,在CLICK事件中写处理代码,不需写额外的代码

Answer 6

谢谢楼上， slxj88(晓晓) 
(procedure Tform3.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) then
  begin
    Key := #0;                                   { clear enter key }
    Perform(WM_NEXTDLGCTL, 0, 0);                { move to next control }
  end;
end;
可我在前面这段代码，这样是不是有了冲突？这段代码应该怎么修改？让个条件让它碰到Button时按回车不跳到下一个控件！