怎样控制主窗口前表单的停止。(50分)

  • 主题发起人 主题发起人 jhjs
  • 开始时间 开始时间
J

jhjs

Unregistered / Unconfirmed
GUEST, unregistred user!
就是在主窗口前先运行一个表单,怎样才能把表单停止。在form2.show和application.run之间不知道加一些什么语句才能成立。
 
Application.Initialize;
Form2 := TForm2.Create(Application);
try
Application.CreateForm(...);
...
finally
Form2.Free;
end;
Application.Run;
 
Application.Initialize;
Form2 := TForm2.Create(Application);
try
Form2.Show
//少了一句
Application.CreateForm(...);
...
finally
Form2.Free;
end;
Application.Run;
 
我题目的意思是重表单停止。就是在主表单前加一个注册表单,也就是登录表单,是怎样
判断,如果确定就运行主表单,取消就退出程序。
 
在Application.Run之前Exit不就退出了吗?
至于退出之前的判断和普通程序没什么区别,只要把登录窗口用ShowModal显示出来,
还可以在一个while语句里用一个变量控制输入的次数等,输入正确继续执行,不正确就Exit,注意释放就行了。
 
Application.Initialize;
Form2 := TForm2.Create(Appliation);
try
if Form2.ShowModal = idOk then //当输入正确时应以mrOk关闭该表单,否则以mrCancel或其他关闭该表单
Application.Run;
finally
Form2.Free;
end;

//一个更好的方法是自己定义一个Execute,输入正确返回True。
 
多人接受答案了。
 
后退
顶部