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