Перейти к содержанию
Fire Monkey от А до Я
  • 0

InputBox режим ввода NumberPad


lev.vorobyov

Вопрос

Добрый вечер. Хочу  ввести значение через  InputBox. Проблемка заключается в том что при вводе открывается клавиатура qwerty  а нужен NumberPad

 

  begin


    InputBox('Sayını qeyd edin', '', Edit1.Text,
      procedure(const AResult: TModalResult; const AValue: string)
      begin
          case AResult of
            { Detect which button was pushed and show a different message }
            mrOk:
              begin
                edit1.Text:= AValue;
              end;
            mrNo:
              begin
               // pressed no
              end;
          end;

      end);
  end;

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
2 минуты назад, krapotkin сказал:

SomeEdit.KeyboardType := NumberPad

 

У SomeEdit да, я его там выбираю NumberPad, но когда открывается InputDialog с ним открывается клавиатура qwerty а не Number Pad

Ссылка на комментарий
  • 0
2 минуты назад, krapotkin сказал:

код покажи

 

// У Edit1.text     KeyboardType = NumberPad

 

procedure TMain.Button15Click(Sender: TObject);
begin
    InputBox('Количество', '', Edit1.Text,
      procedure(const AResult: TModalResult; const AValue: string)
      begin
          case AResult of
            mrOk:
              begin
                edit1.Text:= AValue;    
              end;
            mrNo:
              begin
               // pressed no
              end;
          end;

      end);
end;
 

Ссылка на комментарий
  • 0
3 минуты назад, enatechno сказал:

krapotkin предложил Вам использовать MyDialogs вместо стандартного InputBox. В InputBox нельзя задать тип клавиатуры.

Это стандартные, или надо где то взять?

P.S использую XE8

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...