Поиск сообщества
Показаны результаты для тегов 'PhonePad'.
Найдено: 1 результат
-
Мне нужно вводить числа. В Edit можно указать тип клавиатуры KeyboardType = PhonePad. Как сделать появляющуюся при InputQuery клавиатуру типа PhonePad? procedure TForm1.Label1Tap(Sender: TObject; const [Ref] Point: TPointF); begin InputQuery('Введите число', [''], [''], procedure(const AResult: TModalResult; const AValues: array of string) begin if (AResult=mrOk) and (AValues[0].Trim<>'') then Label1.Text:=AValues[0].Trim; end ); end;
