怎样实现象Office一样，刚打开程序显示一副图片，过几秒再进入程序主窗体?

Question

怎样实现象Office一样，刚打开程序显示一副图片，过几秒再进入程序主窗体?

Answer 1

看看DelphiX\Demos\Db\Mastapp的例子吧

Answer 2

搜以前的贴字吧。。至少1000个splash

Answer 3

begin
  Application.Initialize;
  Application.Title := '梦湘工作室软件-应用程序基本配置管理系统';
  frmflash:=Tfrmflash.Create(Application);
  {$ifndef debug}
    frmflash.Show;
    frmflash.Refresh;
  {$endif}
  //初始化数据库
  dmMainDB:=TdmMainDB.Create(Application);
  if not dmMainDB.OpenDatabase then
  begin
    dmMainDB.Free;
    Application.Terminate;
    exit;
  end;
  //连接数据库成功,开始登录
  frmLogon:=TfrmLogon.Create(Application);
  if frmLogon.ShowModal<>mrOK then  //登录失败
  begin
    dmMainDB.Free;
    Application.Terminate;
    exit;
  end;
  frmLogon.Free;
  //建立主窗口
  Application.CreateForm(TfrmMain, frmMain);
  frmflash.Free;
  //开始循环
  Application.Run;
end.