ShowModal，要按两次才可以

Question

主界面：procedure tmainform.FormCreate(Sender: TObject);
var
  Login:TLoginForm;
begin
  Login :=TLoginForm.Create(Self);
  if Login.ShowModal=mrOk then
  begin  end;
end;登录窗口：procedure TLoginForm.Button2Click(Sender: TObject);//Button2的默认ModalResult为mrNone
begin
  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登录窗口才可以消失转到主窗体上

Answer 1

Button2.ModalResult :=mrOk;改成ModalResult := mrOk;