开发日志--闪屏(Splash)窗体

一直想静下心来整理下自己开发管理信息系统的思绪,今天终于下决心付诸于行动了,好的开始是成功的一半嘛!
delphi是一个很优秀的开发工具,我很喜欢,但是在开发和学习的过程走了不少弯路,现整理出来,希望能给想要学习的朋友带来帮助。
言归正传,我们在使用软件的时候一般会看到程序在开始运行的时候会看到一个启动画面,比如delphi在启动的时候就会有一个画面,这样程序在加载初始化时会让用户感觉上不会太长时间,当然也能起到广告的作用,会让更多的人记住这个软件,今天我们就从程序运行的第一步开始,闪屏窗体的制作。
首先创造一个Application,然后保存项目为DEMO.dpr,单元文件untMain.pas,窗体命名为frmMain(注,会在后面的章节中说明如何养成好的命名习惯).
此时按F9运行程序看到的时我们创建的窗体frmMain,因些我们需要创建一个窗体做为闪屏窗体,点击菜单,File,NEW,Form创建一个新窗体,并命名为frmSplash,然后保存untSplash.pas。点击菜单Project,Options,在打开的项目选项窗口中,将Auto-create forms下面的frmSplash移到Available forms中。打开Demo.dpr,然后在加入如下代码:
  frmSplash:=TfrmSplash.Create(Application);
  frmSplash.Show;
  frmSplash.Update;
  sleep(5000);
  frmSplash.Free;
  Application.Run;
sleep()需要在Uses中引用SysUtils单元文件,sleep()函数的功能是让闪屏停留的时间函数。
此时按F9再运行程序,显示的则是frmSplash窗体,下步就是如何将闪屏设计的漂亮了。在frmSplash窗体上放入Panel1,让闪屏有立体感,设置Panel1的BevelWidth属性为3,然后在Panel1上放入Image1控件,然后设置Picture属性为设计好的图片,此时再运行程序就可以看美丽的启动屏了!
原文地址:https://www.cnblogs.com/edrp/p/974853.html