"如何在用户单击确定之前验证 InputQuery 用户输入？"

Question

在 Delphi 11 Alexandria 的 Windows 10 中的 32 位 VCL 应用程序中，我向用户显示了一个 INPUT DIALOG：

  var aNewFolderName: string := 'New Project Folder';
  if Vcl.Dialogs.InputQuery('New Project Folder', 'Enter the name of the new Project Folder:', aNewFolderName) then
  begin
    // Todo: Create the folder if everything went OK, ELSE REPEAT the input action :-(
  end;

Answer 1

最简单和最通用的选择是编写自己的输入对话框，并在对话框中包含验证代码，或者传递一个执行验证的回调方法。

"

Answer 2

不，没有办法。 但也有替代方案：

1. 查找InputQuery<\/code>的代码，编写类似的代码，然后在需要的地方进行修改（例如，为TEdit<\/code>设置OnChange<\/code>处理程序）。 你会注意到它是以一种非常简单的方式完成的。

2. 为它设计自己的表单，而不是（像InputQuery<\/code>那样）动态创建一个：

   • 您可以使用自己的逻辑在表单关闭时获取用户的选择和输入，或者<\/li>
   • 您可以随时设置表单的ModalResult<\/code>属性（通过代码），并且可以将ModalResult<\/code>分配给每个按钮（例如mrCancel<\/code> ），因此它会自动设置表单的ModalResult<\/code>属性。 就像MessageBox()<\/code><\/a>一样调用您自己的表单：

     对我来说，只要给出任何形式的反馈，任何形式仍然可见或不可见，这几乎没有什么区别。 你可以给它，因为没有什么能阻止你这样做：
     

Answer 3

虽然可以通过使用重复对话来解决这个问题，但我不认为从 UX 角度来看这是一个特别优雅的解决方案。

我宁愿制作自己的对话框并执行以下操作：

procedure TForm1.btnSetPasswordClick(Sender: TObject);
begin
  var psw := '';
  if SuperInput(
    Self,
    'Frog Simulator',
    'Please enter the new frog password:',
    psw,
    function(const Text: string; out AErrorMessage: string): Boolean
    begin
      if Text.Length < 8 then
      begin
        AErrorMessage := 'The password''s length must be at least 8 characters.';
        Exit(False);
      end;
      if not StrHasChrOfType(Text, TCharacter.IsLetter) then
      begin
        AErrorMessage := 'The password must contain at least one letter.';
        Exit(False);
      end;
      if not StrHasChrOfType(Text, TCharacter.IsDigit) then
      begin
        AErrorMessage := 'The password must contain at least one digit.';
        Exit(False);
      end;
      if not StrHasChrOfType(Text, TCharacter.IsPunctuation) then
      begin
        AErrorMessage := 'The password must contain at least one punctuation character.';
        Exit(False);
      end;
      Result := True;
    end)
  then
    lblNewPassword.Caption := psw;
end;

Answer 4

感谢在用户单击确定之前明确确认没有预先设计的方法来验证输入的用户。 现在剩下的问题是：如何向用户提供关于失效原因的有意义且有效的反馈？ IMO，显示附加错误对话框不符合这些标准。 所以我实现了一个解决方案，其中提示被重新出现的 InputQuery 对话框中的验证错误消息替换：

procedure TformMain.menuitemCreateASubProjectGroupClick(Sender: TObject);
begin
  var aNewFolderName: string := 'New Project Group';
  var InputIsValid: Boolean;
  var InputPrompt: string := 'Enter the name of the new Project Group:';
  repeat
    if Vcl.Dialogs.InputQuery('New Project Group', InputPrompt, aNewFolderName) then
    begin
      var NewPrompt: string;
      InputIsValid := CheckInput(aNewFolderName, NewPrompt);
      if not InputIsValid then
        InputPrompt := NewPrompt
      else
      begin
        CreateNewFolder(aNewFolderName);
      end;
    end
    else
      BREAK;
  until InputIsValid;
end;

function PAIsFilenameValid(const AFilename: string; var errorchar: Char): Boolean;
begin
  Result := True;

  for var i := 1 to Length(AFilename) do
  begin
    if not System.IOUtils.TPath.IsValidFileNameChar(AFilename[i]) then
    begin
      errorchar := AFilename[i];
      Result := False;
      BREAK;
    end;
  end;
end;

function TformMain.CheckInput(const aNewFolderName: string; out aNewPrompt: string): Boolean;
begin
  Result := True;
  var errorchar: Char;
  if Trim(aNewFolderName) = '' then
  begin
    aNewPrompt := 'Error: You must enter a Group name:';
    Result := False;
  end
  else if not PAIsFilenameValid(aNewFolderName, errorchar) then
  begin
    aNewPrompt := 'Error: No illegal characters (' + errorchar + '):';
    Result := False;
  end;
  // Todo: else...
end;