ShowModal，要按两次才可以
主界面：

Delphi(Pascal) code

procedure tmainform.FormCreate(Sender: TObject);var  Login:TLoginForm;begin  Login :=TLoginForm.Create(Self);  if Login.ShowModal=mrOk then  begin  end;end;

登录窗口：

Delphi(Pascal) code

procedure TLoginForm.Button2Click(Sender: TObject);//Button2的默认ModalResult为mrNonebegin  if (Length(Trim(Edit1.Text))=0) then  begin    ShowMessage('输入帐号');    Exit;  end;  if (Length(Trim(Edit2.Text))=0) then  begin    ShowMessage('输入密码');    Exit;  end;  Button2.ModalResult :=mrOk;end;

需要按两次按钮，Login登录窗口才可以消失转到主窗体上

[解决办法]
Button2.ModalResult :=mrOk;

改成

ModalResult := mrOk;