Question

delphi中如何设置窗口默认的按钮

我想要设置一个窗口的默认按钮，比如是“确定”按钮，我只需敲回车键就可以执行，请问怎么实现

Answer 1

在窗口上建立一个按钮，如button1
设置窗口的属性ActiveControl为button1
在button1的OnKeyDown事件中：
if key=#13 then
button1.Click;

Answer 2

比如这个按钮是btn1，那么就在窗体初始化函数里加上btn1.setfocus;

Answer 3

还可以将将Button的
TabStop:=True;
TabOrder:=0;

Answer 4

在form1的onkeydown事件中写入如下代码procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=vk_return then
Button1.OnClick(Sender);
end;

Answer 5

设置按钮的ModalResult属性为mrOk 。