agree liguang:
在bpr中加代码,可参考splash窗口代码:
//创建并显示封面
SplashForm:=TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
while (GetTickCount-ITime)<2000 do; //延迟两秒
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TTitleForm, TitleForm);
Application.CreateForm(TJbzlglQueryForm, JbzlglQueryForm);
TitleForm.Left:=Trunc((MainForm.ClientWidth-TitleForm.Width)/2);
TitleForm.Top:=Trunc((MainForm.ClientHeight-TitleForm.Height)/2);
SplashForm.Hide;
SplashForm.Free;
另外,将登陆窗口showmodal后,验证登陆成功后将ModalResult设为mrOK,登陆窗
口.Hide;即可返回继续执行代码.