Delphi欢迎界面的制作

1.利用计时器

frmStart :=TfrmStart.Create(Application );
frmStart.Show ;   //显示启动窗体
for start_i:=0 to 100 do
begin
  Application.ProcessMessages ; //控制权转让
  Sleep(20);//暂停20毫秒
end;
frmStart.Free ;
frmMain:=TfrmMain.Create(Application );
frmMain.show; 

2.首先启动的是谁，资源的释放

begin
  Application.Initialize;
  SPLASHFORM := TSPLASHFORM.Create(Application);//启动界面的窗体
  SPLASHFORM.Show;
  SPLASHFORM.Update;
  Application.CreateForm(TLogin, Login);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TMainM, MainM);
  Application.CreateForm(Tquerry, querry);
  Application.CreateForm(Taddn, addn);
  Application.CreateForm(Tmodifyn, modifyn);
  Application.CreateForm(Tdeln, deln);
  SPLASHFORM.Hide;
  SPLASHFORM.Free;
  Application.Run;
end.