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

Question

我建立三个窗体.form_login,form_main,form_chaxun.将form_main设为main form.form_main是主窗体,在主窗体的oncreat事件中首先加载form_loin窗体.利用form_login窗体的"退出"按钮实现程序的中止,代码是application.Terminate;问题是,中止程序后form_main窗体好像还会闪一下,十分地不美观,有失水准,请问有什么解决办法吗?

Answer 1

把application.Terminate放在frmMain的前面

Answer 2

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

Answer 3

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;

Answer 4

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

Answer 5

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;不知对你有没有帮助