Delphi欢迎界面的制作

最新推荐文章于 2023-08-28 13:45:00 发布

最新推荐文章于 2023-08-28 13:45:00 发布 · 186 阅读

本文介绍了一种使用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.