启动程序封面(splash form)问题请教(100分)

我给我写的一个小程序作了一个启动封面，是这样做的：

先建了一个启动封面窗体，设为Form2，设置好BorderIcons、

BorderStyle、FormStyle、Position，接着在窗体上加入

图片框、文本框，设置好后在菜单里Project=>Options

项里把Form2从Auto-create forms里转到Available forms。

然后在工程单元李加入了几句代码，如下：

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin

Application.Initialize;

form2:=Tform2.Create(application);

form2.Show;

form2.Update;

Application.CreateForm(TForm1, Form1);



form2.Hide;

form2.Free;

Application.Run;

end.

但是在程序启动时，先出现了一个灰色的框框，然后才出现启动的画面，

请问怎么才能不出现那个灰色的框框(form2 外框），直接出现启动的画面?

是机器较慢可将FORM2先隐藏，CREATE后才显示

是不是你的机器配置低,我的没问题,你的方法没错!

jxq：
你的程序一定是正确的，你看我的闪屏程序，真是一模一样。
100%的没问题。看来是机器慢的问题了。你不如把它放到其它机器
上去试一试。

program Test;

uses
Forms,
Main in 'Main.pas' {MainForm},
Move in 'Move.pas' {MoveForm};

{$R *.RES}

begin
Application.Initialize;
MoveForm:=TMoveForm.Create (Application);
//创建闪现窗口对象（在内存中），还不可见
Moveform.show; //调用对象show
MoveForm.Update;//调用对象Update成员函数
//
Application.CreateForm(TMainForm, MainForm);
MoveForm.Hide; //调用对象的Hide函数将它隐藏
MoveForm.Free;//Free从内存中释放对象
Application.Run;
end.

你试试看把个底图放成alClient,然后设form2的boardstyle为bsNone
可能会没有,我的机器比较快,看不出来的

我的和你的一样，但工作正常。

用控件!!!!!!!!!!!!!!

g

应该没问题

举个例子，你自己看吧，挺简单的
　　在许多应用软件中，启动程序后，在主导界面出现之前，有一个一般以图象为主、文
字为辅的画面，通常用来显示软件或公司的主题标志、软件名称、作者、版权和版本信息
等，停留数秒或按了任意键后软件进入主导界面，这个画面称为Splash画面，意思为引人
注目画面。这个画面的另外一个用处是在处理耗时进程时，为用户展示一幅优美、舒心的
图象。

　　其实在Delphi中可以很容易实现这一技巧。下面用一个例子来逐步说明如何实现Splash
画面。

　　1?在你的程序中增加一个窗体，把它的名字改为SplashForm，BorderStyle属性设置
为bsNone，Position属性设置为poScreenCenter。

　　2?为SplashForm窗体增加一系列必要的构件，如Label、Panel、Image、Shape以及
Bevel等。

　　3?使用IDE的Project|Option功能项把SplashForm窗体从Auto－Create表移到Available
表中。

　　4?将SplashForm窗体的Unit加入到主窗体Unit的Uses语句中。

　　5?在主程序的.dpr文件中加入一段控制代码，位置是在begin之后、其他代码之前，
代码如下：

　　 SplashForm:=TSplashForm.create(Application);

　　 SplashForm.Show;

　　 SplashForm.refresh;

　　其目的是在建立其他窗体及运行程序之前，建立并显示Splash窗体。

　　6?编写主窗体OnShow事件的响应过程。

　　 SplashForm.Free;

　　在本例中，这段代码作用为当屏幕显示主窗体时，释放Splash窗体。

　　7?最后，为主程序的.dpr文件写一段延迟程序，目的是使Splash画面在屏幕上有一
段停留的时间。最简单的办法使用一个无效循环，如：

　　 var i,x:longint

　　 for i:=1 to 100000 do

　　 x:=i;

　　但是，由于机器运行速度不同，有快有慢，表现出来的效果并不理想，最好的办法是
使用时间函数，预先规定Splash画面的停留时间。下列代码使Splash画面在屏幕上停留5
秒钟。

　　 var time1:TDateTime;

　　 time1:=now;

　　 repeat

　　 until time1＋StrtoTime(′00:00:5′)<=now;

　　当然，时间延迟代码必须在Splash画面显示之后，具体位置是在SplashForm.refresh;
语句的后面，建立程序主窗体之前。

　　读者可以运用上述方法，在你的应用程序当中增加一个Splash画面，使你的程序更加
漂亮。

　　以下为程序源代码。其中Splash窗体借用了delphi/Demos/DB/MASTAPP/Splash。

　　 {PROJECT1.DPR}

　　 program Project1;

　　 uses

　　 Forms,SysUtils,

　　 Unit1 in ′Unit1.pas′ {Form1},

　　 Splash in ′../../Demos/DB/MASTAPP/Splash.pas′ {SplashForm};

　　 {?R ＊.RES}

　　 var time1:TDateTime;

　　 begin

　　 SplashForm:=TSplashForm.Create(Application);

　　 SplashForm.Show;

　　 SplashForm.Refresh;

　　 time1:=now;

　　 repeat

　　 until time1＋StrtoTime(′00:00:5′)<=now;

　　 Application.Initialize;

　　 Application.CreateForm(TForm1, Form1);

　　 Application.Run;

　　 end.

　　 {UNIT1.PAS 主窗体}

　　 unit Unit1;

　　 interface

　　 uses

　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

　　 Dialogs,splash;

　　 type

　　 TForm1 = class(TForm)

　　 procedure FormShow(Sender: TObject);

　　 private

　　 { Private declarations }

　　 public

　　 { Public declarations }

　　 end;

　　 var

　　Form1: TForm1;

　　 implementation

　　 {?R ＊.DFM}

　　 procedure TForm1.FormShow(Sender: TObject);

　　 begin

　　 SplashForm.Free;

　　 end;

　　 end.

　　 {SPLASH.PAS Splash窗体}

　　 unit Splash;

　　 interface

　　 uses

　　 SysUtils, Windows, Messages, Classes, Graphics, Controls,

　　 Forms, Dialogs, StdCtrls, ExtCtrls;

　　 type

　　 TSplashForm = class(TForm)

　　 Panel1: TPanel;

　　 Label3: TLabel;

　　 Bevel1: TBevel;

　　 Label1: TLabel;

　　 Image1: TImage;

　　 end;

　　 var

　　 SplashForm: TSplashForm;

　　 implementation

　　 {?R ＊.DFM}

　　 end.

在IDE中设
SplashForm.Visible:=false
在Dpr文件中,Create后
SplasForm.Visible:=true;

时间太久，强制结束。 wjiachun