|
举个例子，你自己看吧，挺简单的 在许多应用软件中，启动程序后，在主导界面出现之前，有一个一般以图象为主,文字为辅的画面，通常用来显示软件或公司的主题标志、软件名称、作者、版权和版本信息等，停留数秒或按了任意键后软件进入主导界面，这个画面称为Splash画面，意思为引人注目画面。这个画面的另外一个用处是在处理耗时进程时，为用户展示一幅优美、舒心的图象。 其实在Delphi中可以很容易实现这一技巧。下面用一个例子来逐步说明如何实现Splash画面。 1在你的程序中增加一个窗体，把它的名字改为SplashForm，BorderStyle属性设置为bsNone，Position属性设置为poScreenCenter。 2为SplashForm窗体增加一系列必要的构件，如Label、Panel、Image、Shape以及Bevel等。 3使用IDE的Project|Option功能项把SplashForm窗体从Auto－Create表移到Available 表中。 4将SplashForm窗体的Unit加入到主窗体Unit的Uses语句中。 5在主程序的.dpr文件中加入一段控制代码，位置是在begin之后、其他代码之前，代码如下： SplashForm:=TSplashForm.create(Application); SplashForm.Show; SplashForm.refresh; 其目的是在建立其他窗体及运行程序之前，建立并显示Splash窗体。 6编写主窗体OnShow事件的响应过程。 SplashForm.Free; 在本例中，这段代码作用为当屏幕显示主窗体时，释放Splash窗体。 7最后，为主程序的.dpr文件写一段延迟程序，目的是使Splash画面在屏幕上有一段停留的时间。最简单的办法使用一个无效循环，如： var i,x:longint for i:=1 to 100000 do x:=i; 但是，由于机器运行速度不同，有快有慢，表现出来的效果并不理想，最好的办法是使用时间函数，预先规定Splash画面的停留时间。下列代码使Splash画面在屏幕上停留5 秒钟。 var time1:TDateTime; time1:=now; repeat until time1＋StrtoTime(′00:00:5′)<=now; 当然，时间延迟代码必须在Splash画面显示之后，具体位置是在SplashForm.refresh; 语句的后面，建立程序主窗体之前。 读者可以运用上述方法，在你的应用程序当中增加一个Splash画面，使你的程序更加漂亮。 以下为程序源代码。其中Splash窗体借用了delphi\Demos\DB\MASTAPP\Splash。 {PROJECT1.DPR} program Project1; uses Forms,SysUtils, Unit1 in ′Unit1.pas′ {Form1}, Splash in ′..\..\Demos\DB\MASTAPP\Splash.pas′ {SplashForm}; {R ＊.RES} var time1:TDateTime; begin SplashForm:=TSplashForm.Create(Application); SplashForm.Show; SplashForm.Refresh; time1:=now; repeat until time1＋StrtoTime(′00:00:5′)<=now; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. {UNIT1.PAS 主窗体} unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,splash; type TForm1 = class(TForm) procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {R ＊.DFM} procedure TForm1.FormShow(Sender: TObject); begin SplashForm.Free; end; end. {SPLASH.PAS Splash窗体} unit Splash; interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TSplashForm = class(TForm) Panel1: TPanel; Label3: TLabel; Bevel1: TBevel; Label1: TLabel; Image1: TImage; end; var SplashForm: TSplashForm; implementation {R ＊.DFM} end.
[Sql Server]Sql精妙语句--各种求值函数 [网页制作]网页表格之---多个表格纵向排列
[网页制作]JavaScript另类用法--读取和写入cookie [网页制作]号称非常安全的上网工具---360安全浏览器介绍
[办公软件]信息技术教学篇---Word工具栏的显示、隐藏及四种菜… [操作系统]开始菜单---运行命令大总结
[操作系统]网络转载---64位操作系统与32位的区别 [操作系统]ldap:///(没有响应)Windows无法访问指定设备、路径…
[网络技术]安全篇---交换机设置方法介绍 [聊天工具]Real10 & Xpdf installation on Linux Box
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
