【结贴】创建一个启动闪现窗口**

jianth2005

创建一个启动闪现窗口
因为打开一个功能窗体要加载的东西太多。所以想在这个窗体加载完成之前显示一个等待窗体。
在DELPHI的工程文件写几句代码就很容易实现了

我现在在平台 主窗体的ONSHOW事件写了
Forms.Application.Initialize;
Form2 :=YWGN1.TMAINFORM.Creat(self.Context);
Form2.Show;
。。。//这里实现主窗体的加载
Sysutils.sleep(3000);
Form2.Hide;
Form2.Free;
但是没有起到效果，反而更慢的感觉
请问在平台如何实现

lixy

平台的窗体没有application加载主窗体的部分。你只能重窗体的create和show事件上下手。

jianth2005

我之前就是在CREATE和ONSHOW事件做这些事的
只是感觉它的效果确实不怎么样

既然这样的话，那就先结帖吧。