Delphi 10.4 iOS 上的 InputQuery 导致错误 "Unsupported InputQuery Fields"

Question

使用下面的代码显示具有两个字段的 InputQuery，在 windows 和 Android 中一切正常。相同的代码在 ios 上的一个字段上工作正常，但在产生上述错误消息的两个字段上却不行。关于问题的任何想法。我已经看到这个 https://quality.embarcadero.com/browse/RSP-27777 report that seems to show the two input field on ios but with a caption issue. Also the issue with cancel 但没有看到这条消息。提前谢谢你。

procedure TFrmMain.user_level_lbClick(Sender: TObject);
var
  code_now, old_user_type: integer; 
begin
code_now := 12;
 TDialogServiceAsync.InputQuery('Please enter code to change user level password', ['Code','Level'], 
  ['000','1'],
procedure(const AResult: TModalResult; const AValues: array of string)
begin
 if Aresult = mrOk then
   if Strtoint(Avalues[0]) = code_now
       then begin
            old_user_type := user_type;
            user_type := strtoint( Avalues[1]);
            showmessage('You have changed your level from ' +  inttostr(old_user_type) + 
               ' to ' +inttostr(user_type));
            end
       else showmessage('Wrong code');  // go to setup for debug
if Aresult = mrCancel then ;
  end);
end;

Answer 1

在 iOS 上，InputQuery“在幕后”使用 UIAlertView，这意味着它的可用输入有限。请参考：

https://developer.apple.com/documentation/uikit/uialertviewstyle?language=objc

底线：您需要提交功能请求以支持您想要的功能（这意味着将使用 UIAlertView 以外的东西），或者以其他方式实现它

Delphi 10.4 iOS 上的 InputQuery 导致错误 "Unsupported InputQuery Fields"

Delphi 10.4 InputQuery on iOS results in Error "Unsupported InputQuery Fields"

delphi

dialog

inputbox

ios