写好的程序有两个登陆界面,我只想显示一个,该怎么做啊,有两个mainform
写好的程序有两个登陆界面,我只想显示一个,该怎么做啊,有两个mainform
[解决办法]
首先不能用登录窗口作为主窗口
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title :='XXXXXXXXXXXX';
splashFM:=TsplashFM.Create(nil);
splashFM.Show;
splashFM.Update;
if 你的条件
LoginFM :=TLoginFM1.Create(nil) else
LoginFM :=TLoginFM2.Create(nil) ;
if LoginFM.ShowModal <>1 then
begin
splashFM.Update;
splashFM.Free;
LoginFM.Free;
Application.Terminate;
Exit;
end ;
splashFM.Free;
Application.CreateForm(TMtnPhoneTest, MtnPhoneTest);
Application.Run;
end.
其中LoginFM : TForm
LoginFM :=TLoginFM1.Create(nil)
LoginFM :=TLoginFM2.Create(nil)
是用你的不同的LoginFM来构建LoginFM。
类的多态