再谈程序启动画面的制作

我在很多网站上面都看到过关于程序Splash窗口的制作方法,不知道是不是版本比较早的原因,我觉得比较复杂,现在给大家介绍一种比较简单的方法,相信很多朋友也知道这一方法

新建一个工程,然后再新建一个窗体,把其中一个作为splash窗体,在上面放上你想放置的东西,然后修改工程文件如下(值得注意的一点是,在一个工程中新建一个窗体时,默认的visible属性为false,所以要将新建的splash窗体visible属性改为true,否则将不会显示splash窗体):

program Project1;

uses
    Forms,
    Unit1 in 'Unit1.pas' {Form1},
    Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
    Application.Initialize;
    Application.ShowMainForm:=false;(*此处为添加的语句,其他均没有改变*)
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TForm2, Form2);
    Application.Run;
end.

在程序的主窗体上放置一个timer控件,interval值设置为splash窗体停留的时间

然后编写响应过程

procedure TForm1.Timer1Timer(Sender: TObject);

  begin
      form2.Close

      form1.Show;(*form1为主窗体,form2为splash窗体*);
 end;

现在编译运行吧(本人使用Delphi7编译运行成功),Congratulation,你成功了~!!!!!!!!!

(第一次发表文章,现丑了,请大家不要见笑)