窗口提前显示，急！

Question

我在窗口onshow中加入了连接oracle数据库的代码。由于连接较慢。所以窗口一直等到连接完成后才显示，请问高手们，有没有什么方法可以让其先显示出来啊。

Answer 1

在窗口的OnShow事件中加入Oracle连接试试；或者在工程文件中*.dpr  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  Oracle连接Connection := true;

Answer 2

可以在OnActive事件里写代码，注意要有一个标志记录是否已经调用过。Application.Run;
Oracle连接Connection := true; // 这里的代码直到程序结束才会执行