^^^^^^急！！！在线等待(有关sleep函数)^^^^^^^

Question

我要在project单元使用sleep(),以延迟form2的free,以产生Delphi启动时的启动画面的延迟效果。
project的代码如下：
————
program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  application.CreateForm(tform2,form2);  form2.Free;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
---------
不知道sleep怎么用，是不是要加单元？

Answer 1

project的代码如下：
————
program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  form2 := tform2.Create(Application);
  sleep(1000)
  form2.Free;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 2

加一句
Application.Initialize;
  form2 := tform2.Create(Application);
  sleep(1000)
 application.update; //必须
否则界面显示不清晰_____________________
http://expert.csdn.net/Expert/topic/1649/1649010.xml?temp=.2105524
谢谢关注此贴。

Answer 3

万不得已时不要用sleep函数，会使系统挂起，用gettickcount函数，

Answer 4

在Use部分中加上：
  Windows, project的代码如下：
————
program Project1;
uses
  Forms,
  Windows, 
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  form2 := tform2.Create(Application);
  sleep(1000)
  form2 .update;
  form2.Free;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 5

谢谢Wally_wu和My_first的短信指导。
OK了。