delphi Android上的输入对话框

uses

  FMX.DialogService;

{...}

procedure TForm1.Button1Click(Sender: TObject);

begin

  TDialogService.InputQuery( 'Please enter some info:', ['Info'], ['default-value'],

    procedure (const AResult : TModalResult; const values: array of string)

    begin

      if AResult<>mrOk then begin

        Exit;

      end;

      //- Perform success action here.

  ShowMessage( Values[0] );

    end

   );

end;