如何更好地设置启动画面

Question

我的目的：启动画面出现之后，三秒之后或者五秒之后再消失。
          或者鼠标点击消失
          消失之后进入主程序。

Answer 1

Sleep 等待...或者 鼠标单击时间..

Answer 2

在启动画面窗体中加入TIMER组件,时间设置为5秒执行一次，timer事件：F_LogOn.free;打开菜单Project->viewsouce
按如下修改：
  F_LogOn := TF_LogOn.Create(Application);  //动态启动画面
  timer1.enable:=ture;
  F_LogOn.Show; 
  Application.Title := '医院信息系统';
  Application.CreateForm(TF_Main, F_Main);

Answer 3

这个在CSDN有现成的程序！ 兄弟可以去找一下！