如何用Delphi实现系统进入登陆界面后才进入主界面
3个回答
展开全部
呵呵你这个问题曾经也困扰我好久,后来我终于终于,打开你的项目文件直接编码项目文件,按顺序调用你login的form最后如果mrok再调用你的主窗口并free掉你的login窗口,一切ok了类似如下代码:
g_Login := TLoginForm.Create(Application);
if g_Login.ShowModal=mrOk then
begin
Result := 1;
Application.CreateForm(TFormMain, g_MainForm);
Application.CreateForm(TFormAbout, g_FormAbout);
g_MainForm.Init;
end
else
Abort;
g_Login := TLoginForm.Create(Application);
if g_Login.ShowModal=mrOk then
begin
Result := 1;
Application.CreateForm(TFormMain, g_MainForm);
Application.CreateForm(TFormAbout, g_FormAbout);
g_MainForm.Init;
end
else
Abort;
展开全部
运行时 你可以设置主界面隐藏,然后将登陆窗口showmodal出来 验证通过之后登陆窗口关闭,主窗体show 取消的话 直接terminate
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在主界面的OnShow事件中写,假设登录界面Form名称为frmLogin。
if frmLogin.ShowModal = mrCancel then
begin
Application.Terminate;
end
然后在登录界面中的登录按钮事件中写 ModalResult := mrOk; 当然你可以加上通过用户名密码的验证。
if frmLogin.ShowModal = mrCancel then
begin
Application.Terminate;
end
然后在登录界面中的登录按钮事件中写 ModalResult := mrOk; 当然你可以加上通过用户名密码的验证。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询