本文整理自网络，侵删。
遇到这样一个问题，利用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
相关阅读 >>
Delphi 解决Delphi indy10下 utf8码转换的问题
Delphi中break,exit,abort跳出循环的比较
Delphi xe 提示没有定义decimalseparator等的解决方法
更多相关阅读请进入《Delphi》频道 >>
