遇到这样一个问题,利用MainForm的OnShow事件,来显示LoginForm:
procedure TMainForm.FormShow(Sender: TObject);
begin
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
关键字词: