uses
  ....
  System.MaskUtils, System.Character;

type
  TFormRegistry = class(TForm)
    edtPhone: TEdit;
    procedure edtPhoneValidating(Sender: TObject; var Text: string);
    procedure edtPhoneKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure edtPhoneEnter(Sender: TObject);
    procedure edtPhoneTyping(Sender: TObject);
  private
    const Mask = '+7(000)000-00-00;0;*';  /// '+0(000)000-00-00;0;*' - для других стран, например для Украины +3(999)....
  private
    PhoneNumber: string;
    function GetCaretPos: Integer;
    function GetMaxLength: integer;
  public
  end;

procedure TFormRegistry.FormCreate(Sender: TObject);
begin
  edtPhone.Text := FormatMaskText(Mask, PhoneNumber);
end;

function TFormRegistry.GetCaretPos: Integer;
var
  i: integer;
begin
  Result := 0;
  for i := 0 to Mask.Length-1 do
   begin
     if not (MaskGetCharType(Mask, i) in [mcDirective, mcMask]) then
       Result := Result + 1;
     if (Result + PhoneNumber.Length) = i then
         Break;
   end;
  Result := Result + PhoneNumber.Length - 1;
end;

function TFormRegistry.GetMaxLength: integer;
var
  i: integer;
begin
  Result := 0;
  for i := 0 to Mask.Length-1 do
    if (MaskGetCharType(Mask, i) in [mcMask]) then
      Result := Result + 1;
end;

procedure TFormRegistry.edtPhoneKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if (Key = 8) and (PhoneNumber.Length > 0) then
     PhoneNumber := Copy(PhoneNumber, 1, PhoneNumber.Length-1)
  else
  if (PhoneNumber.Length < GetMaxLength) and (Key = 0) and IsDigit(KeyChar) then
      PhoneNumber := PhoneNumber + KeyChar
  else
     KeyChar := #0;
end;

procedure TFormRegistry.edtPhoneEnter(Sender: TObject);
begin
  edtPhone.CaretPosition := GetCaretPos;
end;

procedure TFormRegistry.edtPhoneTyping(Sender: TObject);
begin
  edtPhone.CaretPosition := GetCaretPos;
end;

procedure TFormRegistry.edtPhoneValidating(Sender: TObject; var Text: string);
begin
  Text := FormatMaskText(Mask, PhoneNumber);
end;

end.

Числа и между ними точки. Какие варианты на FMX?

PS. На текущий момент решение вижу только в нескольких Edit-ах и Label-ах стоящих подряд, но как-то некрасиво.

Здравствуйте!

Подскажите как отключить на android в TEdit появляющиеся кнопки ВСТАВКА КОПИРОВАТЬ и т.д.

или как запретить вставлять из буфера в приложении?

Спасибо!

Друзья, коллеги, кто сталкивался и как решал потребность при наборе текста в Edit и Memo юзать Т9, как решали подскажите.

Когда-то видел компонент в котором есть такая реализация, но найти снова его не удалось. Да и вообще может реализация этого проста в дефолтных компонентах.

Кто ведает - поделитесь:)

Запретить пробовал так:

procedure TForm.EditKeyDown(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', 'А'..'Я', 'а'..'я', 'A'..'Z', 'a'..'z', #8 ]) then Key:=#0;
end;

Символы продолжают вводиться. Запрет должен происходить при нажатиях на экранную клавиатуру Android'а.

События KeyPressed я в XE6 не нашел.

Код позволяет вводить только числа, включая дробные и отрицательные.

procedure TFormMain.Edit1ChangeTracking(Sender: TObject);
Var FEdit : TEdit;
    FFloat : Single;
begin
  If Not (Sender is TEdit) Then // Защитимся от не выспавшегося самого себя
    Exit;
  FEdit:=(Sender as TEdit); // Для удобства...
  FEdit.Text:=FEdit.Text.Replace(' ',''); // Убираем случайные пробелы
  if FEdit.Text.IsEmpty then // Если пусто (ничего не введено или все удалено), ничего не делаем
    Exit;
  FEdit.Text:=FEdit.Text.Replace('.',','); // Заменяйм точку запятой
  if FEdit.Text.Equals(',') then // Если введен разделитель, добавляем перед ним ноль для красоты (не обязательно)
  begin
    FEdit.Text:='0,';
    FEdit.CaretPosition:=FEdit.CaretPosition+1; // без этого курсор останется между нулём и запятой
  end;
  if FEdit.Text.Equals('-') then // Если введен только минус, не пытамся его драконить
    Exit;
  if TryStrToFloat(FEdit.Text,FFloat) Then // Пробуем преобразовать в число
    FEdit.TagString:=FEdit.Text // Если удалось, сохраняем в временном хранилище
  Else
    FEdit.Text:=FEdit.TagString; // Если не удалось, восстанавливаем из временного хранилища
end;

В качестве временного хранилища использовано TagString, дабы не разводить глобальных переменных.

Возможно понадобиться очистка временного хранилища при многократном использовании:

procedure TFormMain.Edit1Enter(Sender: TObject);
begin
  If Not (Sender is TEdit) Then
    Exit;
  (Sender as TEdit).TagString:='';
end;

Буду рад услышать замечания и предложения.