我的splash窗口怎么了？？？？

[zzmicheal]

我之前曾问过这个问题，但我感觉没有说清楚，现叙述如下：

我给应用程序做了一个splash，但运行结果是先出现一个秃秃的空form，（一闪而过后）再出现splash图画，（5秒后）再出现主程序窗口。前两者的时间间隔很短，但我确实可以看到这个间隔。

注意：我那个第一次出现的form是splash的form，不是应用程序的主form！

只有一次没有发生这个问题，那时我load了一副50k左右的bmp。我现在load一副100多k的jpg就有如上反应


程序有两个form,一个叫splash，一个叫form1

我的splash方法是
1.引进一个form，起名splash，修改它的bordericons为空，borderstyle属性值为bs none，
2.再在窗口里放一个Image控件，align设为all client
3.image的picture属性引进一副图画，stretch设为true
4.使该form在主程序窗口之前显现，持续一段时间再消去。

我在工程文件的代码中写下了这样的话
begin
Application.Initialize;
Splash:=TSplash.Create(Application);
Splash.Show;
Splash.Update;

Application.CreateForm(TForm1, Form1);
Splash.Free;
Application.Run;
end;

当然还有主窗体form1的延时
procedure TForm1.FormCreate(Sender: TObject);
var
CurTime:longword;
delaytime:longword;
begin
delaytime:=2000;
curtime:=gettickcount;
while(gettickcount<(curtime+delaytime))do;

end;

[lxhong1980]

program FlwPrj;

uses
Forms,
Graphics,
SysUtils,
ShellApi,
UMain in '..\pas\UMain.pas' {FrmMain},

{$R *.res}

{$R ZJM.RES}
var
bmp:Tbitmap;
begin
Application.Initialize;
bmp:=Tbitmap.Create;
Try
bmp.LoadFromFile(ExtractFilePath(ParamStr(0))+'splash.bmp');
frmsplash:=Tfrmsplash.Create(Application);
bmp.Width:=Frmsplash.Width;
bmp.Height:=frmsplash.Height;
frmsplash.Show;
frmsplash.Canvas.Draw(0,0,bmp);
finally
bmp.Free;
end;
Sleep(500);
frmsplash.Free;
Application.Title := '花型准备系统';
Application.CreateForm(TFrmMain, FrmMain);
Application.Run;
end.

[午秋]

同意楼上的做法

[fireflyer]

begin
Application.Initialize;
Splash:=TSplash.Create(Application);
Splash.Show;
Splash.Update;
Sleep(3000);加入
Application.CreateForm(TForm1, Form1);
Splash.Free;
Application.Run;
end;

[jpyc]

例子：

http://218.56.11.178:8020/web/index.aspx

->软件基地->delphi辕马-》基础应用-》启动窗体的制作

[zzmicheal]

lxhong1980,你的方法可以用！！！！太好了。其余朋友们的方法不知为何还是没法让那‘一闪而过’消失。请问lxhong1980,这是怎么回事呢？是不是动态地载入图画就行得通？

但，现在又有一些问题：
1.应用程序执行时需要在同一个目录下找splash.bmp,如果没有的话就报错。但我想让这个图画和应用程序成为一体啊！
2.如果图片的原始尺寸大于splash窗口的尺寸，那么图片就不能完整显示。

能否解答？谢谢！