闪现窗口怎么做呀

Question

好多程序一开始都有一个欢迎的窗口要怎么做呀？
我做了一个，让它在主form里show可是不好看，我想在主form
出来前就显示，要怎么做？

Answer 1

program Test
uses
forms,
Main in ’MAIN.PAS’{MainForm},
Move in ’Move.PAS’{MoveForm}{$R *.RES}begin
MoveForm:=TMoveForm.Create(Application);{Create创建闪现窗口对象}
MoveForm.Show;
MoveForm.Update;
Application.CreateForm(TMainForm,MainForm);
MoveForm.Hide;
MoveForm.Free;{Free从内存中释放对象}
Application.Run;
end.
　　第一条语句创建了对象，该对象存在内存中，但还不能看见， 为了让它出现并更 新它的内容，调用对象的Show和Update成员函数：Show和Update。当闪现窗口使用完后，用Hide函数将它隐藏起来，然后用Free函数释放它所占据的内存。
    如果此刻你编译和运行程序，MoveForm窗口一闪而过， 你可能未来得及看清。为使MoveForm窗口显示几秒种，我们可为MainForm的OnCreate 事件创建一个处理程序，延迟MoveForm窗口的显现时间。
program TMainForm.FormCreate(sender:Tobject);
var 
currentTime:LongInt;
begin
currentTime:=GetTickCount div 1000;
while ((GetTickCount div 1000)<(currentTime+3) do
{不做任何事);
end;
end.
　　GetTickCount函数返回窗口启动后过去的毫秒数，这个值除以1000 转化为秒数。此时你编译运行程序，就能得到一个延迟3秒多的闪现窗口。

Answer 2

在工程文件中
  Application.Initialize;
  Form2:=Tform2.Create(Application);
  Form2.show;
  Form2.update;
  Application.CreateForm(Tform1,Form1);
  Sleep(1000);
  Form2.hide;
  Form2.Free;
 Application.Run;

Answer 3

Project Option中form2放在Available forms中