Delphi Firemonkey TEdit позволяет избежать проблемы выскакивания клавиатуры сразу при нажатии

[Lomanu4]

Друзья, которые устали от этой проблемы, идите голосовать!

Следующее является временным решением (наконец, надеюсь, что чиновник может решить эту проблему):

// Сначала устанавливаем Edit1.ReadOnly в False

процедура TForm1.Edit1MouseUp (Отправитель: TObject; кнопка: TMouseButton;
  Shift: TShiftState; X, Y: одиночный);
begin
  // После освобождения установите ReadOnly в False, клавиатуру
  TEdit (Sender) .ReadOnly: = False;
 end ;

процедура TForm1.Edit1Exit (Sender: TObject);
 begin
  // После удаления фокуса установите для ReadOnly значение Treue
  TEdit (Sender) .ReadOnly: = True;
 end ;