关于用户密码登录的问题 请问大家,如何在主窗体没有出现的情况下,让用户登录录窗体先弹出,然后等用户输入完用户名和密码后,主窗体在弹出来。谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1。把你的登录窗口用UNIT级函数包起来2。在BPL里面写代码,就是在APPLICATION.RUN的前面调用登录窗口,根据登录窗口的返回值来决定是否弹出主窗口 好多种办法了,一个简单的就是创建form1implementationuses unit2;procedure TForm1.FormShow(Sender: TObject);varmyform:Tform;begintry myform:=Tform2.Create(form1); form2.ShowModal; except end;end;//这是因为delphi创建顺序是form1的show,然后是form2的show//所以先用showmodal创建form2,如果form2没有返回,就不会回去创建form1//如果要密码不对就推出那么在form2的确定时间中加入 application.Terminate,//如果对了就form2.close;进入form1 急问!FastReports问题 RICHEDIT控件的使用问题,在线等,急急急。。。3Q 一个很简单的问题 两个小问题,请大家帮忙出主意支招 请大家看一下关于FASTREPORT的问题,在线等 在DBGrid里,如何得到CELL的内容或名称。 有关Fastreport的问题。。。 快放假了,祝大家新年快乐,散分(只限20人,人满结贴,请不要重复接分) 莫名奇妙的结果,为什么? 我怎么样获得当前正在运行的程序的地址呢?在线等待,急用呀! SAP这个专业名词是什么意思? 如何用opendialog打开一个图片文件,用image控件显示
2。在BPL里面写代码,就是在APPLICATION.RUN的前面调用登录窗口,根据登录窗口的返回值来决定是否弹出主窗口
一个简单的就是创建form1implementation
uses unit2;
procedure TForm1.FormShow(Sender: TObject);
var
myform:Tform;
begin
try
myform:=Tform2.Create(form1);
form2.ShowModal;
except
end;
end;
//这是因为delphi创建顺序是form1的show,然后是form2的show
//所以先用showmodal创建form2,如果form2没有返回,就不会
回去创建form1
//如果要密码不对就推出那么在form2的确定时间中加入 application.Terminate,
//如果对了就form2.close;进入form1