关于界面显示问题

Question

我要一个登录界面登录进去，显示主界面。我是让登录界面隐藏，主界面show的;可是主界面出来了，登录界面还显示着。在我电脑上可以的，没问题。在别的电脑上不会的。请各位指教一下。

Answer 1

我先让主界面SHOW，再让登录界面关闭self.close.结果运用程序全关了。不能运行了。

Answer 2

application.MainForm是不是设置成登陆窗体了，应该是主窗体

Answer 3

//登录窗体单元
unit Login
...
type
  TLoginForm = class(TForm)
  ...
  public
    LoginOK: Boolean;
  end;
...
implementation
...
proceduere TLoginForm.BtnOKClick(Sender: TObject);
begin
  if ... then
  begin
    LoginOK : = true;
    Self.Close;
  end;
end;end.//工程
program Project1;
....
begin
  LoginForm := TLoginForm.Create(nil);
  LoginForm.ShowModal;
  if not LoginForm.LoginOK then Exit;
  LoginForm.Free;  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Answer 4

这样改一下，并将主窗体的visble设置为false 
 Application.Initialize; 
  Application.CreateForm(TMainForm, MainForm); 
  LoginForm := TLoginForm.Create(nil); 
  LoginForm.ShowModal; 
  Application.Run; 
//登陆按钮
if 密码正确 then
begin
  主窗体.show;
  self.close;
end
else
application.terminate;