登陆之前的LOAD是怎样处理的? 很多系统在出现用户登陆系统之前,先出现一个LOAD的窗口,为连接数据库争取时间,我明白它是在一个窗口上放张图片就可以简单做出来了,但我不明白,为什么它能先出现,再到登陆窗口,再到主窗口,在哪里写入代码控制它们的顺序的? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在哪里写入代码控制它们的顺序的?----------------------在工程文件(Project1)里的begin 和end 之间调整顺序 出现了LOAD封面窗口,为什么就直接出现主窗口了,登陆窗口为什么出不来的 在工程单元文件中添入如下: ...... {$R *.RES} begin Application.Initialize; try //动态打开Logo窗口的Form Form2:=TForm2.create(application); Form2.showm; Form2.update; //工程自动打开一般的Form Application.CreateForm(TForm1,Form1); Application.CreateForm(TForm3.form3); finally Form2.free;//释放LOGO窗品所占的内存空间 end; application.run;end; 最简单的方式,不过可能会影响你的程序Project -> Option -> Forms -> Main form改一下就行了 打开 .dpr 文件修改CreateForm 的启动顺序例:Application.CreateForm(TDMAccess, DMAccess);Application.CreateForm(TMainForm, MainForm); 这是我的程序代码,现在最先显示的是LOAD窗口了,但紧接的应是登陆窗口要求输入密码才对的,但真接出接MAIN窗口了我要求的顺序是:封面窗口----登陆窗口----主窗口而现在是:封面窗口----主窗口 Application.Initialize; //主程序初始化 Application.Title:='华苑餐馆收费系统'; //设置主程序窗口的标题 FRM_LOAD:=TFRM_LOAD.Create(APPLICATION); FRM_LOAD.Show; FRM_LOAD.Update; Application.CreateForm(Tfrm_main, frm_main); Application.CreateForm(Tfrm_user, frm_user); Application.CreateForm(Tfrm_datam, frm_datam); Application.CreateForm(Tfrm_printbrowse, frm_printbrowse); FRM_LOAD.Hide; FRM_LOAD.Free; Application.Run;有朋友可能会这样解决:把USER窗口移到MAIN窗口上就可以解决了, Application.Initialize; //主程序初始化 Application.Title:='华苑餐馆收费系统'; //设置主程序窗口的标题 FRM_LOAD:=TFRM_LOAD.Create(APPLICATION); FRM_LOAD.Show; FRM_LOAD.Update; Application.CreateForm(Tfrm_user, frm_user); Application.CreateForm(Tfrm_main, frm_main); Application.CreateForm(Tfrm_datam, frm_datam); Application.CreateForm(Tfrm_printbrowse, frm_printbrowse); FRM_LOAD.Hide; FRM_LOAD.Free; Application.Run;这样做是解决了我的问题,但这样的话就变成了USER窗口为主窗口了,究竟怎样解决这个问题呢? 函数定义 设置ListView控件的子Item的值 在D6+SQL Server 2000环境下,用ADO控件的内存释放问题 关于UPDATE时某字段内容带有引号的问题 如何产生事件的问题!! fastreport学习 我在专家门诊Delphi DataBase提出的问题 请问谁有expressquantumgrid这个控件(for bcb)或在什么地方可以下载 如何让自己用Delphi编的程序,不被dede等工具反编译?? 关于procedure of Object 关于字符串截取问题 有关数据库连接的问题
----------------------
在工程文件(Project1)里的begin 和end 之间调整顺序
......
{$R *.RES}
begin
Application.Initialize;
try
//动态打开Logo窗口的Form
Form2:=TForm2.create(application);
Form2.showm;
Form2.update;
//工程自动打开一般的Form
Application.CreateForm(TForm1,Form1);
Application.CreateForm(TForm3.form3);
finally
Form2.free;//释放LOGO窗品所占的内存空间
end;
application.run;
end;
改一下就行了
修改CreateForm 的启动顺序
例:
Application.CreateForm(TDMAccess, DMAccess);
Application.CreateForm(TMainForm, MainForm);
我要求的顺序是:
封面窗口----登陆窗口----主窗口
而现在是:
封面窗口----主窗口
Application.Initialize; //主程序初始化
Application.Title:='华苑餐馆收费系统'; //设置主程序窗口的标题
FRM_LOAD:=TFRM_LOAD.Create(APPLICATION);
FRM_LOAD.Show;
FRM_LOAD.Update;
Application.CreateForm(Tfrm_main, frm_main);
Application.CreateForm(Tfrm_user, frm_user);
Application.CreateForm(Tfrm_datam, frm_datam);
Application.CreateForm(Tfrm_printbrowse, frm_printbrowse);
FRM_LOAD.Hide;
FRM_LOAD.Free;
Application.Run;有朋友可能会这样解决:
把USER窗口移到MAIN窗口上就可以解决了,
Application.Initialize; //主程序初始化
Application.Title:='华苑餐馆收费系统'; //设置主程序窗口的标题
FRM_LOAD:=TFRM_LOAD.Create(APPLICATION);
FRM_LOAD.Show;
FRM_LOAD.Update;
Application.CreateForm(Tfrm_user, frm_user);
Application.CreateForm(Tfrm_main, frm_main);
Application.CreateForm(Tfrm_datam, frm_datam);
Application.CreateForm(Tfrm_printbrowse, frm_printbrowse);
FRM_LOAD.Hide;
FRM_LOAD.Free;
Application.Run;
这样做是解决了我的问题,但这样的话就变成了USER窗口为主窗口了,究竟怎样解决这个问题呢?