这样启动封面对吗? ( 积分: 50 )

建一个启动封面窗体，假设为Form2，先设置好BorderIcons、BorderStyle、FormStyle、Position，接着在窗体上加入图片框、文本框，设置好后在菜单里选Project里的Options，把Form2从Auto-create forms里转到Available forms。再接着就是按Ctrl+F12键，选Project1，出现工程单元，其内容如下

..

Application.CreateForm(TForm1, Form1);

Application.Run;

.

在Application.CreateForm(TForm1, Form1); 前加入如下语句：

form2:=tform2.create(application);

form2.Show;

form2.Update;

然后在Application.Run;前面加入如下语句：

form2.hide;

form2.free;

procedure TForm1.FormCreate(Sender: TObject);
var
CurTime:LongWord;
DelayTime:LongWord;
begin
//设置延迟时间为5秒
DelayTime:=2000;
CurTime:=GetTickCount;
while(GetTickCount<(CurTime+DelayTime))do;
//在这儿可以加上应用程序的初始化过程
end;

楼主应该是想实现先启动画面,再登录吧.应该这样写,你试试吧
Application.CreateForm(Tform2,form2);
form2.ShowModal;
form2.Free;

接受答案了.