delphi使焦点固定到一个button上

2025-04-04 04:54:07

推荐回答（3个）

回答1：

请问你是否是指当用户按下回车时执行Button2的OnClick事件。
如果是这样的话。你只需要将Button2的Default属性设置为True即可。
如果你是要让Button2一直获取焦点可以在Button2的OnExit事件中这样写:
procedure TForm1.Button2Exit(Sender: TObject);
begin
ActiveControl := Button2;
end;
并且在FormCreate中
procedure TForm1.FormCreate(Sender: TObject);
begin
ActiveControl := Button2;
end;

不过不建议这样做.因为这样会让窗口上的文本框无法输入文字的。

回答2：

button2的onexit 事件里写入
button2.setfocuse;

在form的oncreate事件里写入
button2.setfocuse;

回答3：

在所有的edit控件的onkeypress事件中写上
if key=#13 then button1.setfocus;