RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

Delphi XE8 Form.OnShow的一个小问题

作者:admin 来源: 日期:2015/5/8 17:27:07 人气: 标签:

遇到这样一个问题,利用MainForm的OnShow事件,来显示LoginForm:
procedure TMainForm.FormShow(Sender: TObject);
begin
  LoginForm.Show;
end;
运行的显示效果是预想的,运行应用,直接显示了LoginForm,但发现,Edit无法弹出VirtualKeyboard.
如果我直接显示LoginForm,则没有问题,那说明LoginForm只是在MainForm.OnShow事件中显示,才会这样。
硬着头皮看了一下TForm的代码,运气还不错,很快找到解决方法。原来,在
procedure TCommonCustomForm.Show方法中,先执行了OnShow事件,然后又执行了Activate方法。
即在OnShow事件执行后,再执行的OnActivate事件。


原因找到,解决方法就不难了。

一种方法是改FMX.Forms的代码,将DoShow与Activate这两行换一下次序。另外一种方法,就是不改代码,而是利用Form.OnActivate事件来显示LoginForm。当然,只有傻瓜才会去改代码来解决这个问题。


http://blog.sina.com.cn/s/blog_44fa172f0102vf7w.html


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料