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.
運行效果如下圖所示。
以上程序在Windows98/2000 +Delphi 7企業版中調試成功。
