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;