初学菜鸟关于键盘响应问题~~100分~~~~

[hudingchen]

我想用户在窗体form1中单击回车键时激发form1中的button1事件~~代码怎么写？？？？？？？

[rlqiang]

Form1 的 ActionControl 属性设为 Button1
窗体默认聚焦到 Button1
楼上说的对，如果还有其他可聚焦控件，并且焦点已在该控件上，回车后就执行该控件事件了。
如果有特殊需要，可以对所有可聚焦控件的KeyDown下写入：
if key = #13 then key = 0;
(当然，不一定要手工全部写入,可以用循环判断，然后处理)

[NightCloud]

最简单的方法,tbutton1.default:=true;
类似，相应esc键，设置button1.cancel:=true;

[zhangl_cn]

最简单的方法,tbutton1.default:=true;
类似，相应esc键，设置button1.cancel:=true;

/////////////////

用这个可以

[gerrylc]

button1.default:=true

[小疙瘩]

form1.KeyPreview := true;


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_RETURN then
button1.Click;
end;

[柯本]

如果Form上有其它的可聚焦控件(如其它的button)且button1的tableorder不为0的话(第一个聚焦控件)上面的代码不可用.因为回车先会被其它控件截获而不会触发FormKeyDown
我不知楼主的目的是什么,如果你将button1的tableorder设为最前(或button1.Setfocus),那你在form上按回车就会执行Button1.click

[imisu]

KeyDown事件里面：
if key = #13 then
begin
//button的响应
end;

如果在form没激活的状态也要响应这个时间
你就看看键盘钩子

[china618]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
Button1.Click;
end;