如何制作类似DELPHI启动时候有一个介绍窗口，完了才是主程序呢？(20分)

J

jackjonys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #1

谢谢，能详细说说吗？

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #2

begin
Application.Initialize;
Application.Title := 'XXXXXX';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TSplashForm, SplashForm);
if SysLogin then Application.Run
else Application.Terminate;
end.

 

T

Tassadar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #3

Application.Initialize;
Application.Title := 'xxxx';
Application.CreateForm(TdmMain, dmMain);//创建datamodule
if dmMain.ConnectionMain.Connected then//如果已经连接成功了
begin
if DoLogin then//这里显示登录窗口，不要用application.createform创建，用TLoginForm.Create创建
begin
Application.CreateForm(TfmMain, fmMain);//这里创建主窗体
Application.Run;
end;
dmMain.cdSetting.Active := False;
end;

 

阿

阿健

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #4

我曾做过这样的练习

 

怕

怕死嘎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #5

老大啊你的TdmMain是什么东西，我照你的做，好象不行啊

 

怕

怕死嘎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #6

我不能自定义一启动显示的那窗口的图片，文字等吗？

 

D

doolii

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #7

上你看的是方法，其实就是闪现窗体

 

单

单飞的鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #8

给你我的方法，不光能定义窗口的图片文字，还能控制显示窗口的时间


1、首先建立FORM1，FORM2，完成各自的设计。//form2为显示窗口
2、进project-options,将FORM2转入available forms，按ctrl+f12,选project,
修改主程序如下
form2:=tform2.create(application);
form2:=show;
form2:=update;
.....
form2:=hide;
form2:=free;

3、在FORM1的on creat事件里填写如下代码：
var
currentTime:LongInt;
begin
currentTime:=GetTickCount div 1000;
while (GetTickCount div 1000)<(currentTime+3) do
end;

 

T

Tassadar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #9

回：怕死嘎,
tdmMain是主datamodule
首先要连接上数据库
然后在doLogin里面显示登录窗体，并且验证用户密码
只是登录窗体怎么显示，用什么图片，你可以自己设计

 

任

任豆豆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #10

Application.Initialize;
FormLogin := TFormLogin.Create(FormLogin);
Application.CreateForm(TFormMain, FormMain);
FormLogin.Show;
sleep(2000);
FormLogin.Free;
Application.Run;

 

怕

怕死嘎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #11

还没有写完吧？
老大你的form2:=tform2.create(application);
form2:=show;
form2:=update;
.....
form2:=hide;
form2:=free;
这里的tform2还不能用吧。能这样用吗？form2:=show;

 

单

单飞的鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #12

你试试不就知道了：)

 

J

jackjonys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #13

请问
form2:=tform2.create(application);
form2:=show;
form2:=update;
.....
form2:=hide;
form2:=free;
中间的...里应该写什么呢

 

J

jackjonys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #14

都不知道form2:=tform2.create(application);
form2:=show;
form2:=update;
.....
form2:=hide;
form2:=free;
写在哪里
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
写在哪里？谢谢

 

J

jackjonys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #15

谁帮忙帮忙，谢谢了

 

J

jackjonys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #16

Application.CreateForm(TdmMain, dmMain);//创建datamodule
if dmMain.ConnectionMain.Connected then//如果已经连接成功了
我也建立了一个DataModule出现一个窗口不知道里面放什么，就直接在项目文件中把
Application.CreateForm(TForm1,Form1)去了换成了
Application.CreateForm(TDataModule3, DataModule3);
但是用DataModule3没有ConnectionMain这个方法啊？

 

单

单飞的鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-13

• #17

form2:=tform2.create(application);
form2:=show;
form2:=update;
.....
form2:=hide;
form2:=free;


这些当然是写在projectj里啊