初学者关于软件封面制作的问题 ( 积分: 50 )

这是一个软件封面图片制作的例子,以下是书上的源代码划线处的语句不明白什么意思.还有把该处语句去掉运行效果相同不知道是为什么?希望高人指点!
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg;

type
Tsplashform = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
splashform: Tsplashform;

implementation

{$R *.dfm}

procedure Tsplashform.Timer1Timer(Sender: TObject);
begin
timer1.Enabled:=false;
[red]--------------------------[/red]
close;
end;

procedure Tsplashform.FormShow(Sender: TObject);
begin
setwindowpos(handle,hwnd_topmost,0,0,0,0,swp_nomove or swp_nosize);
end;

end.

这个窗口 上有一个 timer 控件。 但是并没有给它 写任何的动作。只是在启动的时候，设置 timer的 enabled 为 false 就是 无效的意思。

所以 看不出任何不同。

timer 是个定时器，就算正常工作的时候，你也看不到它是怎么回事，但是它在后台工作了。 比如可以在程序启动 某个时间后做某事。

这个
Timer已经设定了一个数值，比如10秒钟（Interval属性中1秒钟为1000）。到了10秒后，停止Timer，关闭splashform，即结束“封面”。

直接在program部分的代码里面使用sleep更好点了哈。当然这个方法也可以，效果一样的了。

报道+学习+混分

其实这句在现时的主机配置中是可有或可没有.但有一些比较落后配置的主机就不同了.
(你可以生成一个有此句一个没有此句的程式在一些较为落后及新机的主机上运行对比一下就会有感觉了.但一定要把这句改为timeq1.enabled:=true;及设置好停留时间,最好有10秒.则才能体会到,一般来说,我们是不会考虑客户的主机配置的,但因为客户的主机又是五花八门,所以加了这句后则可保证不管是什么的机子都只会停留10秒.)

帮顶一下，接个分