山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

有关登录窗体的小问题,高手请进,得分的机会.

楼主chengzhen2005（）2005-05-01 22:48:57 在 Delphi / 数据库相关提问

我建立三个窗体.form_login,form_main,form_chaxun.将form_main设为main form.

form_main是主窗体,在主窗体的oncreat事件中首先加载form_loin窗体.

利用form_login窗体的"退出"按钮实现程序的中止,代码是application.Terminate;

问题是,中止程序后form_main窗体好像还会闪一下,十分地不美观,有失水准,请问有什么解决办法吗? 问题点数：20、回复次数：9Top

1 楼xuxiaozhao_3411（小小）回复于 2005-05-01 22:59:51 得分 0

把application.Terminate放在frmMain的前面Top

2 楼xuxiaozhao_3411（小小）回复于 2005-05-01 23:11:10 得分 0

没说清楚,你把form_login执行完后的application.Terminate放在工程文件代码(project->view source)里form_main 的formcreate语句的前面.Top

3 楼chengzhen2005（）回复于 2005-05-02 00:30:14 得分 0

Application.Initialize;
Application.CreateForm(TForm_main, Form_main);
Application.Terminate;
Application.CreateForm(TForm_login, Form_login);
Application.CreateForm(TForm_chaxun,form_chaxun);
Application.Run;
不能解决
我的工程文件是这样的.
Application.Initialize;
Application.CreateForm(TForm_main, Form_main);
Application.CreateForm(TForm_login, Form_login);
Application.CreateForm(TForm_chaxun,form_chaxun);
Application.Run;
Top

4 楼cjianwen（空前）回复于 2005-05-02 08:47:51 得分 0

关注！Top

5 楼tengxiang05（一座桥）回复于 2005-05-03 10:00:12 得分 0

学习Top

6 楼yiemyn（贴贴不漏水）回复于 2005-05-03 10:04:46 得分 0

做过这个问题.
这样处理:在工程中将登陆窗口作为模式窗口显示,并判断如是'退出'就中止应用程序.Top

7 楼chengzhen2005（）回复于 2005-05-03 18:10:40 得分 0

to 贴贴不漏水

不好意思,什么是模式窗口Top

8 楼kanxue660（天使之吻）回复于 2005-05-04 00:08:15 得分 0

什么是模式窗口
----------
ShowModelTop

9 楼xxfree（休闲泽源）回复于 2005-05-04 00:38:25 得分 20

Application.Initialize;
form2:=tform2.Create(application);//程序进入时的画面窗口
form2.Show;
form2.Update;
sleep(100);
form2.Free;
Application.CreateForm(Tdmodule, dmodule);//datamodule
loginform:=tloginform.Create(application);//loginform
loginform.ShowModal;
if loginform.ModalResult=1 then
begin
application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;不知对你有没有帮助Top