delphi XE8 Form.OnShow的一个小问题

遇到这样一个问题，利用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

推荐分享