怎么做封面呢？偶在delphi5开发人员指南 代码看不懂

[chris2019]

tell

[腊月三毛]

Application.Initialize;
AboutForm:=TAboutForm.Create(Application);//封面窗體
AboutForm.Show;
AboutForm.Update;//刷新一次
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TMainData, MainData);
AboutForm.Hide;
AboutForm.Free;
Application.Run;

[q4588818]

代码大概就是下面的样子

var
ShowForm : TForm;
CurrTime : TsystemTime;
Sec : Word;
begin
ShowForm := TForm.Create( self );
ShowForm.Show();
ShowForm.Update;
GetSystemTime( CurrTime );
Sec := CurrTime.wSecond + 5;
while Sec > CurrTime.wSecond + 5 do
begin
GetSystemTime( CurrTime );
end;
ShowForm.Free;
end;

[q4588818]

补充一下,两种方法都是可以实现的,不过我更喜欢第二种.

[上海老李]

q4588818好一点！

[blazingfire]

所谓Logo窗体就是为了在主程序在启动期间，让用户不至于感到厌烦而设置的.而
不是为Logo而Logo，所以我认为　hfclql(三毛)　才是可行的。当然如果程序启
动时间太短，那么设一个延时也是未尝不可。代码像这样写可能要好一些：
.........................
begin
Application.Initialize;
try
AboutForm:=TAboutForm.Create(Application);//封面窗體
AboutForm.Show;
AboutForm.Update;//刷新一次
Application.CreateForm(TMainForm, MainForm);
finally
AboutForm.Free;
end;
Application.Run;
end;

[q4588818]

那个循环只是个象征性的，实际用的时候，可以换成别的东西阿，比如，
while form1.table1.active = false do
begin
end;
之类的代码，可以很好的控制启动画面的显示时间。