Delphi欢迎界面的制作

1.利用计时器

frmStart:=TfrmStart.Create(Application);
frmStart.Show;//显示启动窗体
forstart_i:=0to100do
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.