我做了一个小程序，是个压缩文件。
www.anyang.gov.cn/wfq/cursor1.rar
窗口中有三个edit框，我在edit1的onexit中写了以下代码：
procedure TForm1.Edit1Exit(Sender: TObject);
var
tt:integer;
begin
tt:=application.MessageBox('ffff','ff',mb_yesno);
If tt=6 then
edit3.SetFocus
else
eidt2.setfocus;
end; 我用鼠标点击edit2,光标离开edit1，然后在弹出窗口中点"否",则应该是edit2成为输入焦点。但我发现光标确实停留在了edit2中，但是无法进行输入，再用鼠标点击一下edit2才能正常进行输入，这是为什么呀？该如何使edit2成为真实的输入焦点呢？
www.anyang.gov.cn/wfq/cursor1.rar
窗口中有三个edit框，我在edit1的onexit中写了以下代码：
procedure TForm1.Edit1Exit(Sender: TObject);
var
tt:integer;
begin
tt:=application.MessageBox('ffff','ff',mb_yesno);
If tt=6 then
edit3.SetFocus
else
eidt2.setfocus;
end; 我用鼠标点击edit2,光标离开edit1，然后在弹出窗口中点"否",则应该是edit2成为输入焦点。但我发现光标确实停留在了edit2中，但是无法进行输入，再用鼠标点击一下edit2才能正常进行输入，这是为什么呀？该如何使edit2成为真实的输入焦点呢？
解决方案 »
- 开源的控件 对象按下ctrl，就可以查看源代码？
- 下面这个SQL语句怎么写
- 用另外一个线程去打开ADOQUERY，显示在DBGRID上，有问题。咨询
- 急急，在线等，没碰过的问题，连接不了数据库。
- 100分请教高手！如何获取网页输入框中的内容？
- 如何区分大、小键盘的数字'1'键
- 救急！再线等！马上揭贴！！！
- 一个简单问题：如何在函数里给外部数组赋值?
- 代码实现当前目录的备份,比如:d:\aa下执行程序bk.exe,则建目录d:\aa\backup,将d:\aa目录下所有内容copy 至d:\aa\backup下(包括程序bk.exe
- java 擅长的部分
- [06.18] . . . . . 请教如何直接写Variant数组的数据
- 初学delphi 发布问题请大家帮忙！！！！
试一下键盘可以输入数据么？问题就在这里了，
Edit没有收到你鼠标弹起的消息
If tt=6 then
edit3.SetFocus
else
eidt2.setfocus;执行时焦点还在MessageBox中，因其还没有Destroy。