再谈程序启动画面的制作
2005-10-04 13:12
309 查看
我在很多网站上面都看到过关于程序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,你成功了~!!!!!!!!!
(第一次发表文章,现丑了,请大家不要见笑)
新建一个工程,然后再新建一个窗体,把其中一个作为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,你成功了~!!!!!!!!!
(第一次发表文章,现丑了,请大家不要见笑)
相关文章推荐
- Android程序的启动画面制作
- 四种程序启动画面的制作方法(VC)(转)
- iOS程序启动画面的制作
- VC四种程序启动画面的制作方法
- HOW TO:溅射屏幕(Splash Screen),也叫程序启动画面的制作(.NET2003)
- 四种程序启动画面的制作方法(VC)
- 四种程序启动画面的制作方法(VC)
- 四种程序启动画面的制作方法(VC)
- 四种程序启动画面的制作方法(VC)
- 四种程序启动画面的制作方法(VC)
- VC++四种程序启动画面的制作方法
- 四种程序启动画面的制作方法
- VC中四种程序启动画面的制作方法
- [开发] 四种程序启动画面的制作方法(VC)
- iOS程序添加icon图标/启动画面的制作
- 【VC编程技巧】窗体☞3.5对单文档或者多文档程序制作启动画面
- 给对话框程序制作启动画面
- 【VC编程技巧】窗口☞3.5对单文档或者多文档程序制作启动画面
- HOW TO:溅射屏幕(Splash Screen),也叫程序启动画面的制作(.NET2005)
- 四种程序启动画面的制作方法(VC)