delphi中Mdi如何处理登陆窗体
1个回答
2018-09-20 · 百度知道官方认证企业
腾讯电脑管家
腾讯电脑管家是腾讯公司推出的免费安全管理软件，能有效预防和解决计算机上常见的安全风险，并帮助用户解决各种电脑“疑难杂症”、优化系统和网络环境，是中国综合能力最强、最稳定的安全软件。
向TA提问
关注
![]()
展开全部
program HouseManage;
uses
Forms,
Controls, //必须有这个，否则mrOK无定义
MainFrm in 'MainFrm.pas' {MainForm},
DengjiFrm in 'DengjiFrm.pas' {DengjiForm},
LoginFrm in 'LoginFrm.pas' {LoginForm};
{$R *.res}
begin
Application.Initialize;
Application.Title := '房地产销售软件';
Application.CreateForm(TMainForm, MainForm);
LoginForm:=TLoginForm.Create(Application);
if LoginForm.ShowModal<>mrOK then
Application.Terminate;
// Application.CreateForm(TLoginForm, LoginForm);
Application.Run;
end.
uses
Forms,
Controls, //必须有这个，否则mrOK无定义
MainFrm in 'MainFrm.pas' {MainForm},
DengjiFrm in 'DengjiFrm.pas' {DengjiForm},
LoginFrm in 'LoginFrm.pas' {LoginForm};
{$R *.res}
begin
Application.Initialize;
Application.Title := '房地产销售软件';
Application.CreateForm(TMainForm, MainForm);
LoginForm:=TLoginForm.Create(Application);
if LoginForm.ShowModal<>mrOK then
Application.Terminate;
// Application.CreateForm(TLoginForm, LoginForm);
Application.Run;
end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
