我碰到了一个非常奇怪的问题:....大家不妨作个简单的试验
1、新建一个Application。
2、在Form上放两个Edit:Edit1、Edit2,并使Edit1的TabOrder为0,Edit2的TabOrder为1。
3、再新建一个窗体。
4、在Edit2的OnEnter事件中添加代码:
Form2.Show;
Self.SetFocus;
Edit2.SetFocus;
运行后,点击Edit2使之获得焦点,这时Form2显示,焦点应该又回到Edit2中,但是奇怪的是,插入符哪去了?,这时我如果随便输入几个字符,也能在Edit2中显示,但是就是不显示插入符!!!
这是怎么回事,该怎么解决呢?请各位大侠指点。
1、新建一个Application。
2、在Form上放两个Edit:Edit1、Edit2,并使Edit1的TabOrder为0,Edit2的TabOrder为1。
3、再新建一个窗体。
4、在Edit2的OnEnter事件中添加代码:
Form2.Show;
Self.SetFocus;
Edit2.SetFocus;
运行后,点击Edit2使之获得焦点,这时Form2显示,焦点应该又回到Edit2中,但是奇怪的是,插入符哪去了?,这时我如果随便输入几个字符,也能在Edit2中显示,但是就是不显示插入符!!!
这是怎么回事,该怎么解决呢?请各位大侠指点。
解决方案 »
- Delphi,怎样自动生成按钮
- 关于WEBBrowser的问题,怎么自动填写网页内的的表单并提交?(该表单没有submit按钮,而是用一个链接Javascript:form1.submit来提交)
- RAVE中文资料?
- 如何使得程序判断鼠标停留在控件上不动的时间是多长?
- 如何在内存中开辟一个区域用来保存从网上下载的excel文档?
- 谁知道fxgrid,fxcube,fxchart,fxpriot是那组件包里的组件,十分感谢!顶者有分!!
- 以正确安装了爱普生1600LQ3的驱动,在写字板中打印设置里由A2纸型,QReport PageSize中不能设置A2?
- 怎么让用户输入1/20这种形式?用MaskEdit会出现用户输成1 /20?怎么避免这类错误的发生。
- 线程中资源释放的菜鸟问题
- @@@@@@@@@@@@@@@@@@谁知道小新的QQ号码?···········
- 那位大師能把TreeView控件的用法與思想教教俺,感激!急!
- 如何给一个TV树添加节点和删除节点??????
我也发现了你所说的问题,暂时没有比较好的方法(原因也说不清楚),有这样一个笨方法:
在Form中加一个Timer1,初始Enabled为False; 相关代码如下:procedure TForm1.Edit2Enter(Sender: TObject);
begin
Form2.Show;
Timer1.Interval := 1;
Timer1.Enabled := True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Self.Show;
Edit2.SetFocus;
end;
edit2.selectAll;
edit2.setfocus;