南理工真不如南航了:关于DELPHI的问题！！~~

看了半天才搞明白你问的～～你要做的是一个 Flash From，也就是一般所说的快闪窗口
这个简单～～用我的一定行～给分吧～～

1.在你的程序中建立一个新窗体，将窗体的Name属性设置为frm_Splash，BorderStyle属性设置为bsNone，BorderIcons属性设置为〔〕，这样快闪窗体显示时便没有标题栏和边界。

2.在frm_Splash上，添加一个Image控件，设置它的Align属性为alClient，指定Picture属性，载入一幅图像。

3.可以根据需要在窗体上添加别的说明信息，如：设计人、开发商等。用Label控件，一定要把Transparent属性设置为True，这样才是透明的，否则影响背景显示。

4.同样用Label控件，把Name属性设置为lbl_Text，同样也把Transparent属性设置为True，道理一样。
在Project1.dpr中添加如下代码：

begin
Application.Initialize;
frm_Splash:=Tfrm_Splash.Create(Application); //创建快闪窗体
frm_Splash.Show; //显示快闪窗体
frm_Splash.Update; //强制更新快闪窗体
Application.CreateForm(TfrmMain, frmMain);
frm_Splash.lbl_Text.Caption:='创建主窗体'; //快闪窗体提示信息
frm_Splash.Update; //强制更新快闪窗体
……
Application.CreateForm(Tfrm_MemberInfo, frm_MemberInfo);
frm_Splash.lbl_Text.Caption:='加载会员信息窗体'; //快闪窗体提示信息
frm_Splash.Update; //强制更新快闪窗体
Application.CreateForm(Tfrm_MemberTimeOut, frm_MemberTimeOut);
frm_Splash.lbl_Text.Caption:=加载过期会员窗体'; //快闪窗体提示信息
frm_Splash.Update; //强制更新快闪窗体
frm_Splash.Hide; //隐藏快闪窗体
frm_Splash.Free; //释放快闪窗体所占资源
Application.Run;
end.

以上程序在WinXP +Delphi 7企业版中调试成功

楼上说的方法有点幼稚

可以用time控件

然后再编写一段动画效果的程序段，做到一个模块里，启动前首先加载

我刚作了一个管理系统
用的就是这个方法
如果你加分的话，我可以发给你

在Form1中加载一张图片，
然后将Form1的属性BorderStyle设为：bsNone
再在工程中按以下方法启用该Form
Application.Initialize;
Form1:=TForm1.Create(Application);
Form1.Show;
Form1.Update;
Application.CreateForm(TForm2, Form2);//要启用的所有Form
Form1.Hide;
Form1.Free;
Application.Run;

最后Form1就可出现像启动Delphi一样的效果
不过，如果程序加载的快就只是一闪而过，最好弄些加载慢的窗口！！

路过