修改.dpr里头代码,说明Login窗口不是MDIChild。 ... FmLogin := TFmLogin.Create(Application); if FmLogin.ShowModal() then begin FmLogin.Free; Application.Title := 'XXX系统'; Application.CreateForm(TFmMain, FmMain); Application.Run; end else begin FmLogin.Free; end; ...
{$R *.res}begin Application.Initialize; Application.CreateForm(TdmDxData, dmDxData);//有数据模块要在此创建,否则dlglogin访问不到 dlgLogin:=TdlgLogin.Create(Application); dlgLogin.ShowModal; if dlgLogin.ModalResult=mrOk then begin frmSplash:=TfrmSplash.Create(Application); frmSplash.ShowModal; frmSplash.Update; //必须有该句否则,splash窗体中控件不显示 Application.CreateForm(TfrmDxMain, frmDxMain); frmSplash.Free; Application.Run; end else Application.Terminate; end.
...
FmLogin := TFmLogin.Create(Application);
if FmLogin.ShowModal() then
begin
FmLogin.Free;
Application.Title := 'XXX系统';
Application.CreateForm(TFmMain, FmMain);
Application.Run;
end
else begin
FmLogin.Free;
end;
...
Application.Initialize;
Application.CreateForm(TdmDxData, dmDxData);//有数据模块要在此创建,否则dlglogin访问不到
dlgLogin:=TdlgLogin.Create(Application);
dlgLogin.ShowModal;
if dlgLogin.ModalResult=mrOk then
begin
frmSplash:=TfrmSplash.Create(Application);
frmSplash.ShowModal;
frmSplash.Update; //必须有该句否则,splash窗体中控件不显示
Application.CreateForm(TfrmDxMain, frmDxMain);
frmSplash.Free;
Application.Run;
end
else
Application.Terminate;
end.