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;

[krapotkin]

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

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

[lev.vorobyov]

Ребята, может есть какие то предложения? Ни как не могу найти решение(

[krapotkin]

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

[lev.vorobyov]

10 минут назад, krapotkin сказал:

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

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

[krapotkin]

SomeEdit.KeyboardType := NumberPad

 

[lev.vorobyov]

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

SomeEdit.KeyboardType := NumberPad

 

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

[lev.vorobyov]

4 минуты назад, lev.vorobyov сказал:

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

 

[krapotkin]

код покажи

[lev.vorobyov]

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;
 

[enatechno]

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

[lev.vorobyov]

3 минуты назад, enatechno сказал:

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

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

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

[krapotkin]

вот копия

MyDialogs_ZuBy.7z

[lev.vorobyov]

Спасибо