怎样做一个启动封面

Question

FLASH:=TFLASH.CREATE(APPLICATION)；
FLASH.SHOW；
FLASH.UPDATE；{刷新}
FORM1.CREATE(FORM1,TFORM1); 
.
.
.
FLASH.HIDE；
FLASH.FREE;{释放}}

Answer 1

Program Project1;
uses
    Forms,Windows,
    Unit1 in 'Unit1.pas' {Form1},
    Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
    Application.Initialize;
    Form2 := TForm2.Create(Application);
    Form2.show;end;

Answer 2

我用sleep(5000)出错, 系统说没有定义sleep

Answer 3

不好意思，没有写完，
begin
Application.Initialize;
Form2 := TForm2.Create(Application);
Form2.show;
Form2.Update;
Sleep(1000);
Form2.Hide;
Form2.Free;
Application.Run;end;

Answer 4

uses一个单元,忘了是哪一个啊

Answer 5

加入SysUtils单元，sleep定义在单元中