巧用制作溅射屏幕物业

10、接下来，修改工程的源代码，以便在显示主窗口之前显示溅射对话框。这里需要在工程文件中插入语句，以便与r工程文件相匹配。工程源代码如下：

program Project3;

uses

Forms,

main in ‘s‘ {MainForm},

19时50分 splash in ‘s‘ {SplashForm};

{$R *.RES}

begin

SplashForm:=eate(Application);

ow;

date;

eateForm(TMainForm,MainForm);

ose;

n;

end.

11、如果这时编译和运行程序，它就非常快速地显示和去除启动溅射对话框，以至用户可能没机会见到它。为了强迫对话框保持几秒钟的可见时间，请选取程序的MainForm。为窗体的OnCreate命令创建一个处理器。在关键词的前面添加一个名为stopTime的长整型变量。在begin和end之间插入两个语句：一个为对Windows GetTickCount函数的调用。来将stopTime设置为Windows已在运行的秒数；另一个语句为while语句，这个语句另外延迟2秒钟。程序清单如下：

unit main;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TMainForm = class(TForm)

Exitbutton: TButton;

procedure ExitbuttonClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

{$R *.DFM}

procedure itbuttonClick(Sender: TObject);

begin

close;

end;

procedure rmCreate(Sender: TObject);

var

stopTime:LongInt;

begin

stopTime:=GetTickCount div 1000;

while ((GetTickCount div 1000)＜(stopTime+2)) do

Sleep(1);

end;

end.

12、按F9编译、运行程序。查看本文来源