怎么作一个启动封面，像DELPHI6启动的那个图像一样(100分)

S

ses

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #1

谢谢

 

向

向你学习

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #2

查找
上周就一个同样的[^]

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #3

在form2上放一个图片，然后如下：
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;
while Form2.Timer1.Enabled do
application.ProcessMessages;
Application.CreateForm(TForm1, Form1);
FORM2.Hide;
form2.Free;

Application.Run;
end.

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #4

但是要和DELPHI一样，有点难哦， ：）

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #5

还有，form2上还有一个Timer组件

 

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #6

可惜我的D6安装后不能用！！

 

S

ses

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #7

什么D6不能用

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #8

就是楼上说的，散分吧。

 

H

hongfei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #9

　　在窗体中加入一个PANEL控件作为播放启动封面的容器，设置ALIGN为“ALCLIENT”；BEVELINNER为“BVLOWERED”；BEVELOUTER为“BVRAISED”；BEVELWIDTH为“4”；BORDERWIDTH为“2”；CAPTION为空；再加入一个SYSTEM选项板中的MEDIAPLAYER控件以播放启动封面，设置AUTOOPEN为“TRUE”；DISPLAY为“PANEL1”；NAME为“M”；VISIBLE为“FALSE”, FILENAME为准备作为启动封面的视频文件。

　　加入事件代码

　　在PREFORM的ONCREATE事件中加入代码：M.PLAY;

　　在“PROJECT”菜单中选择“OPTIONS”,将PREFORM从AUTOCREATE FORMS中移动到AVAILABLE FORMS列表中去。

　　在“PROJECT”菜单中选择“VIEW SOURCE”,打开文件PROJECT1，将其BEGIN与END之间代码改写为：

　　 {初始化程序}

　　 APPLICATION.INITIALIZE;

　　 {调入启动封面}

　　 PREFORM:=TPREFORM.CREATE(APPLICATION);

　　 PREFORM.SHOW;

　　 PREFORM.UPDATE;

　　 APPLICATION.CREATEFORM(TFORM1, FORM1);

　　 {持续显示封面}

　　 REPEAT

　　 UNTIL (PREFORM.M.MODE=MPSTOPPED);

　　 {卸载封面}

　　 PREFORM.HIDE;

　　 PREFORM.FREE;

　　 {进入主窗口}

　　 APPLICATION.RUN;

　　 并在其USES之后添加上以下一行：

　　 MPLAYER,

　　这样，通过存盘、编译、链接，我们便完成了动态软件封面的制作。

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #10

很简单，而且关于此类的问题答的人也很多

 

S

SujmSujm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #11

只需在form2上放一个图片,delphi6测试通过
program Project1;
uses
Forms,
Windows,
Classes,
Sysutils,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
{$R *.res}
begin
Application.Initialize;
Form2:= Tform2.Create(Application);
form2.Show;
form2.Repaint;
Sleep(5000);
try
form2.Update;
Application.CreateForm(TForm1, Form1);
finally
form2.Close;
form2.Free;
end;
Application.Run;
end.

 

T

Teny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #12

这样的问题是老问题了，要修改工程文件。
用Timer延时的方法不可取，应该是先显示Flash窗口，等待所有需要启动的部分全部启动
完毕后关闭Flash窗口，进入主程序。

 

S

SujmSujm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #13

To:Teny
能否给一个例子？

 

Q

qbtxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #14

笨蛋那么多例子还要呀！！！

 

J

juc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #15

不需要加Timer组件，那样会使程序变得很庞大，只要在project中加入几句就可以了，如下
program project;

uses
Forms,
elec in 'unit1.pas' {MainForm},
Unit2 in 'Unit2.pas' {StartForm};

{$R *.res}

begin
Application.Initialize;
StartForm:=TStartForm.Create(Application);
StartForm.Show ;
StartForm.Update ;
Application.CreateForm(TMainForm, MainForm);
StartForm.Hide ;
StartForm.Free ;
Application.Run;
end.
那样，等程序初始化完成后，启动界面就会消失