分全送了！！！！如何做程序启动封面?(192分)

C

cnnoah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #1

数据库是一个"塔河油田岩石物性参数数据库"

如能做一个的启动封面，附源码，另加100分。

 

C

cx139

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #2

在你的工程文件dpr中写代码
Application.Initialize;
form2:=Tform2.Create(application);//form2为你自己定义的无边框的启动界面
form2.Show;
form2.Update;
Application.CreateForm(TForm1, Form1);
sleep(500);
form2.Hide;
form2.Free;
Application.Run;

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #3

Application.Initialize;
Application.CreateForm(TZMakeDBFrm, ZMakeDBFrm);
zMakeDbFrm.show;
zLoginFrm:=TzloginFrm.Create(Application);
if ZloginFrm.ShowModal=mrok then
begin
Application.Run;
end
else
Application.Terminate;

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #4

哈哈，太浪费了，真不知道你的数据库程序怎么做的：）
cx139的方法可行，只要在dpr文件里面按照cx139手工创建Form就可以了，千万不要用
application.CreateForm就可以了。

 

B

bronzestar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #5

真奢侈！

 

K

ka52

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #6

192分,哇,来晚了

同意楼上的方法.

给我点分好吗...

 

Y

yhwyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #7

还有更简单的方法，假如你的主程序窗口为F1，自己做的启动窗口为F2，只要在F1的
ONSHOW事件中加入
F2.SHOWMODAL;
F2.HIDE;
F1.show;
就可以了。
关于启动封面的制作，实际上比较简单，可用FIREWORK等类软件和插入各种图片就行了，
但要注意应该在启动封面中设置一个用户名和密码的判断，否则什么人都可进入应用
系统。

 

W

why_119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #8

Application.Initialize;
form2:=Tform2.Create(application);//form2为你自己定义的无边框的启动界面
form2.Show;
form2.Update;
Application.CreateForm(TForm1, Form1);
...
Application.Run;

 

H

hug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #9

不好意思，来晚了！
同意cxl39的方法,sleep(500),
其中的时间你自己决定！

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #10

的确是来晚了，这样的东东就在DFW上搜一回也能搜出一大堆来。。。

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #11

呵呵, 来晚了我同意cx139的混点分

 

L

lxc88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #12

begin
Application.Initializa;
try
//动态打开logo窗口的form
form2:=TForm2.creat(Application);
form2.show;
form2.update;
//项目自动打开一般的form
Application.CreatForm(TForm1,form1);
Application.CreatForm(TForm3,form3);
form2.hide;
finally
//释放窗体
form2.free;
end;
Application.Run;
end.
以上代码是比较经典的!!!相信你一定有较大的收获!!!

 

L

lw86

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #13

在form2中可放一个定时器控件，并在onkeypress事件中写入代码，这样可以实现过一定时间
自动退出form2或按任一键（或鼠标）退出。

 

T

TMXYB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #14

太奢侈了！
假如创建的窗口太少，启动封面会一闪而过。可以让封面停止几秒。

 

C

crazymoon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #15

加一启动窗体做主窗体，在显示时
sleep(1000)
form2.show
这样行不行，送我的点分吧，我穷的要命！

 

C

ctihy_yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #16

cxl139和lxc88的方法不错，大家可以试试

 

N

noyamm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #17

同意cx139
其中的时间由自己定--->sleep(?)

 

C

cnnoah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #18

多人接受答案了。

 

D

desertsmoke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #19

在一个Form中调用另一个Form，这个方法不可取——因为涉及到主窗体和窗体最小化问题，
解决办法是在.dpr文件中来处理，上面有几位提到的，不过还要在主窗体中隐藏（关闭）
启动封面。