Question

delphi使焦点固定到一个button上

比如我有Button1和Button2
我要让焦点始终聚焦在Button2上
该怎么写代码

Answer 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;

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

追问

这样我的Button1就失效了...
我是想做个计算器
想焦点始终停在 ‘=’ 上
是键盘输入的时候按Enter有 ‘=’ 功能

追答

Button1是否是'='键?如果是的话那就不需要设置OnExit事件了，你直接将Button1的Default设置为True即可~这样你按下Enter键Button1的Click事件就会被激发了。

Answer 2

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

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

追问

这样只有初始化的时候焦点在Button2上
我按了Button1后就变了
能不能始终在Button2上

追答

在button1中的onclick中也写上button2.setfocuse

Answer 3

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

追问

好像我这里行不通。。。。
不过还是谢谢了

追答

if key=#13 then
activecontrol:=button1;
这样写对的,上机给你试过了