I'm using InputQueryAsync as a text input, it's all working, however it opens the default keyboard, I'd like you to open the numeric keypad.
Remembering what I'm using on android.
if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceAsync, IInterface(Service)) then
begin
Service.InputQueryAsync('Valor dos Juros', [''], [list_action.Items[ItemIndex].Data['valor'].AsString],
procedure(const AResult: TModalResult; const AValues: array of string)
begin
case AResult of
mrOk:
begin
if StrToFloatDef(AValues[0], 0) > 0 then
begin
list_action.Items[ItemIndex].Data['valor']:= FormatFloat('0.00', StrToFloatDef(AValues[0], 0));
calculaparcela;
end
else
Toast('Valor inserido não é válido!');
end
end;
end);
end;