D df_zkj Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-23 #1 先显示主窗口，然后在主窗口的paint事件中调用登录窗口，但密码输入正确，要按三次确定按钮才能关闭登录窗口，请给个建议，谢谢！
H hnlygtjj Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-23 #2 没必要写到主窗口中的事件中去啊。 象这样，在工程文件中写。 begin Application.Initialize; Application.ShowMainForm:=false; //选择设置主窗口创建时不显示 Application.Title := '管理信息系统'; Application.CreateForm(Tht_sjmk, ht_sjmk); //数据模块 Application.CreateForm(Tfrmmain, frmmain); //主窗口 Application.CreateForm(Tfrmwh_yhdl, frmwh_yhdl);//登录窗口 Application.Run; end.
没必要写到主窗口中的事件中去啊。 象这样，在工程文件中写。 begin Application.Initialize; Application.ShowMainForm:=false; //选择设置主窗口创建时不显示 Application.Title := '管理信息系统'; Application.CreateForm(Tht_sjmk, ht_sjmk); //数据模块 Application.CreateForm(Tfrmmain, frmmain); //主窗口 Application.CreateForm(Tfrmwh_yhdl, frmwh_yhdl);//登录窗口 Application.Run; end.
Y yellowfish Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-23 #3 调用登录窗口后把主窗口ENABLE掉^_^OK？
蓝 蓝色忧郁 Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-23 #4 在主窗体的formshow里用模式化显示登陆窗体行不行？
Q quejian Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-23 #5 你去全文搜索答案多得是，也有很多有这样的实例，比较简单的
Z zhhyoushen Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-24 #6 On paint 事件不可能用来登陆，思路错误 因为窗体重绘很多条件都会触发，不信拖动主窗体试试~~~~
@ @黑蜘蛛@ Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-27 #7 我也在为这个问题烦恼，试过好多方法都失败了，第一种方法没试过，我一会回去试试， 网上搜索了，可也找不到实例，如果能提供具体网址将不甚感激。。。。。。。。。
C chinaksj Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #8 触发paint的事件太多了，错误难免。 用第一种方法吧。
L liuzr Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-04 #9 一楼的工程文件中是不是要加点： begin Application.Initialize; Application.ShowMainForm:=false; //选择设置主窗口创建时不显示 Application.Title := '管理信息系统'; Application.CreateForm(Tht_sjmk, ht_sjmk); //数据模块 Application.CreateForm(Tfrmmain, frmmain); //主窗口 Application.CreateForm(Tfrmwh_yhdl, frmwh_yhdl);//登录窗口 Frmwh_yhdl.showmodal; //以模态显示,其实此时主窗体显示也可，作为登录的背景 Application.Run; Frmwh_yhdl.free; //直接释放 end. 在上面这段程序中，除主窗体外，别的窗体都以动态方式建立就可。
一楼的工程文件中是不是要加点： begin Application.Initialize; Application.ShowMainForm:=false; //选择设置主窗口创建时不显示 Application.Title := '管理信息系统'; Application.CreateForm(Tht_sjmk, ht_sjmk); //数据模块 Application.CreateForm(Tfrmmain, frmmain); //主窗口 Application.CreateForm(Tfrmwh_yhdl, frmwh_yhdl);//登录窗口 Frmwh_yhdl.showmodal; //以模态显示,其实此时主窗体显示也可，作为登录的背景 Application.Run; Frmwh_yhdl.free; //直接释放 end. 在上面这段程序中，除主窗体外，别的窗体都以动态方式建立就可。
S sqgszxy Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-15 #10 begin Application.Initialize; Application.ShowMainForm:=false; Application.Title := '管理信息系统'; Application.CreateForm(Tht_sjmk, ht_sjmk); //数据模块 Application.CreateForm(Tfrmmain, frmmain); //主窗口 frmmain.hide; //隐藏主窗口 frmwh_yhdl:=Tfrmwh_yhdl.CreateForm(application);//登录窗口 Frmwh_yhdl.showmodal; //以模态显示,其实此时主窗体显示也可，作为登录的背景 Application.Run; Frmwh_yhdl.close; end.
begin Application.Initialize; Application.ShowMainForm:=false; Application.Title := '管理信息系统'; Application.CreateForm(Tht_sjmk, ht_sjmk); //数据模块 Application.CreateForm(Tfrmmain, frmmain); //主窗口 frmmain.hide; //隐藏主窗口 frmwh_yhdl:=Tfrmwh_yhdl.CreateForm(application);//登录窗口 Frmwh_yhdl.showmodal; //以模态显示,其实此时主窗体显示也可，作为登录的背景 Application.Run; Frmwh_yhdl.close; end.
W weadvance Unregistered / Unconfirmed GUEST, unregistred user! 2004-01-15 #11 我教你一个方法. 就是先启动LOGIN,OK后,密码对的话,就HIDE,然后.SHOWMODEL,千万录要FREE,一定死掉. 你要改变思路.,HIDE就行了.还可以有很多用处的. 这方法一定行.不行,我给你源程序.11646004
我教你一个方法. 就是先启动LOGIN,OK后,密码对的话,就HIDE,然后.SHOWMODEL,千万录要FREE,一定死掉. 你要改变思路.,HIDE就行了.还可以有很多用处的. 这方法一定行.不行,我给你源程序.11646004
T tone2003 Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-26 #12 procedure TmainForm.FormCreate(Sender: TObject); begin ....... loginform:=tloginform.create(self); loginform.Show; end;
procedure TmainForm.FormCreate(Sender: TObject); begin ....... loginform:=tloginform.create(self); loginform.Show; end;
