Перейти к содержанию
  • Регистрация
  • 0
lev.vorobyov

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

Вопрос

Добрый вечер. Хочу  ввести значение через  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

Zuby выкладывал кастомные диалоги

Там можно делать все что угодно

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

т.к. тут окно создаешь сам, то можешь ему назначать любые свойства

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
10 минут назад, krapotkin сказал:

т.к. тут окно создаешь сам, то можешь ему назначать любые свойства

:) Не могу найти как выбрать ввод по дефолту (

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
2 минуты назад, krapotkin сказал:

SomeEdit.KeyboardType := NumberPad

 

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
4 минуты назад, lev.vorobyov сказал:

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

 

Screenshot_2016-05-20-13-34-45.png

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0
3 минуты назад, enatechno сказал:

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

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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

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

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

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

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

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

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

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

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


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

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

×
×
  • Создать...