关于edit的焦点问题，急，在线等！

Question

这是一个模拟键盘。
有edit1与edit2两个输入框，和一个按钮（假定作用就是输入1）
if(self.ActiveControl = Edit1) then Edit1.Text:=Edit1.Text+'1'
else if(self.ActiveControl = Edit2) then Edit2.Text:=Edit2.Text+'1'运行结果，edit1和edit2都无法输入
我再在edit1与edit2的onclick事件分加入了edit1.setfocus和edit2.setfocus,还是不行。

Answer 1

上面说的对
用speedbutton不会获得焦点
而用BUTTON的时候你点击它，它就同时获得焦点了
也就是当前的ACTIVECONTROL为BUTTON

Answer 2

测试过了，用SPEEDBUTTON代替BUTTON，可以

Answer 3

if edit1.CanFocus then edit1.SetFocus;