splash窗体的显示问题！

Question

写在工程文件里
    SplashForm:=TSplashForm.Create(SplashForm);
    SplashForm.Show;
    SplashForm.Update;
    Application.CreateForm(TMainForm, MainForm);
    SplashForm.Hide;
    SplashForm.Free;
    Application.Run;
//SplashForm为Splash窗体，将其FormBoder设为none就不能关闭，最小化了

Answer 1

.dpr中
var
  count:integer;
begin
  Application.Initialize;
  splashfrm:=tsplashfrm.create(application);
  splashfrm.show;
  splashfrm.update;
  for count:=0 to 400000000 do
  begin
  end;
  splashfrm.hide;
  splashfrm.free;
  gagl_dl:=Tgagl_dl.Create(application);
  gagl_dl.Showmodal;
  if gagl_dl.dl=false then
  begin
    exit;
    application.Terminate;
  end;
  Application.CreateForm(Tmain, main);
  main.dwmc:=gagl_dl.combobox1.text;
  main.czsj:=datetostr(gagl_dl.DateTimePicker1.date);
  Application.CreateForm(Tm_dydzhmcform, m_dydzhmcform);
  FormBoder设为none就不能关闭，最小化了

Answer 2

在FLASH窗体上放一进度条，可以知道各个程序载入的进度
{$R *.RES}begin
  Application.Initialize;
  with TFFlash.Create(nil) do
  try
      pb.step := 100 div 8;
      show;
      update;
      pb.stepit;
      Application.Title := '我的工程';
      pb.stepit;
      Application.CreateForm(TfrmMain, frmMain);
      pb.stepit;
      Application.CreateForm(Tdm, dm);
      pb.stepit;
      Application.CreateForm(TfrmNewLine, frmNewLine);
      pb.stepit;
      Application.CreateForm(TfrmSetup, frmSetup);
      pb.stepit;
      Application.CreateForm(TfrmReport, frmReport);
      pb.stepit;
      Application.CreateForm(TfrmResult, frmResult);
      pb.stepit;
  finally
    Free;
  end;
  Application.Run;
end.

Answer 3

Application.Initialize;  flash:=tflash.create(application);    //创建闪现窗口
  flash.show;                           //显示闪现窗口
  flash.update;                         //强制刷新闪现窗口
  while flash.Timer1.Enabled do         //延迟显示
        application.ProcessMessages;
        
  flash.hide;
  flash.free;
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(Trepf, repf);
  Application.CreateForm(Tshowbmpf, showbmpf);
  Application.Run;
//单元文件
unit falshu;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, jpeg;type
  Tflash = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  flash: Tflash;implementation{$R *.DFM}procedure Tflash.Timer1Timer(Sender: TObject);
begin
     timer1.Enabled := false;
end;procedure Tflash.FormShow(Sender: TObject);
var
pat:string;begin     pat:=getcurrentdir;
     image1.Picture.LoadFromFile(pat+'\image\天云.bmp');
end;end.//flash的框架
object flash: Tflash
  Left = 305
  Top = 169
  AutoSize = True
  BorderStyle = bsNone
  Caption = 'flash'
  ClientHeight = 336
  ClientWidth = 503
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 503
    Height = 336
    Align = alClient
    AutoSize = True
    Center = True
    Stretch = True
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 288
    Top = 40
  end
end

Answer 4

如果等待的时间比较长，如果我在主窗体还启动起来之前，点击了splash窗体外面，使得splash窗体最小化，但是我想点击任务栏中的splash任务条再次恢复splash窗体，但是只看到很模糊的窗体，看不到上面的画面，如何处理？