当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi制作闪烁窗体

  •   时间:2020-01-03
  • 概述:闪烁窗体

本文介绍Delphi制作闪烁窗体的两种方法,第一种方法:在Project->option中将闪现窗体设置为Available forms,之后显示的主窗体设置为Auto-create forms,并在主窗体的form的create事件中加入以下代码,先声明一个闪现窗体的变量:如About:=TForm2;主窗体代码:

About:=TForm2.Create(Application);//生成闪现窗体
About.show; //显示闪现窗体

闪现窗体加入一个Timer事件,并在Timer的Timer事件中加入下面代码:

close; //关闭窗体
Release; //释放变量

注意:可用Timer的Interval控制闪现窗体出现的事件,以毫秒为单位。

(2)第二种方法:创建两个窗体,并将一个设置为主窗体,以Form1为例,打开【Project】—> 【View Source】,添加Windows引用单元,并添加以下代码:

begin
  Application.Initialize;
  Form2 := TForm2.Create(Application);  //Create创建闪现窗口对象
  Form2.Show;
  Form2.Update;
  Application.CreateForm(TForm1, Form1);
  Sleep(1000);
  Form2.Hide;
  Form2.Free;     //从内存中释放资源
  Application.Run;
end.

    相关声明:

      若“Delphi制作闪烁窗体”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。