Question

delphi 如何实现按键盘激活按钮事件？

我想实现在鼠标光标放在一个Edit框内，然后按下回车键的时候会触发button按钮的onclick事件

Answer 1

你想响应EDIT获得焦点后的回车事件还是EDIT没有获得焦点的事件？
获得焦点后，只需要在EDIT的ONkeypress中，拦截ENTER键做出响应就可以
如果没有获得焦点，那要在FORM内检查鼠标位置，看是否在EDIT的top,left buttom,right 范围内，如果在的话，在FORM内定义事件响应……

Answer 2

1、鼠标移开edit后，即使焦点在edit上，按回车也不触发button按钮的onclick
2、鼠标在edit上时，即使焦点不在edit上，按回车也要触发button按钮的onclick

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('按钮单击事件被激发！');
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then Button1Click(Sender);
end;