On entering in a TEdit, it is doubling the text inside of itself

348 Views Asked by At

I am using Embarcadero® RAD Studio 10 Seattle Version 23.0.20618.2753. I just started making a Mobile App. I placed two TEdit controls on one TForm. They are

Edit_FirstName: TEdit;
Edit_LastName: TEdit;

Now, when I am running this app on a mobile device and filling in my name, suppose I wrote Michael in the field Edit_FirstName and Schumacher in the field Edit_LastName. Up to this point, everything is OK.

But now, when I move back to the field Edit_FirstName and going to add @ after Michael, it should be Michael@ but instead it is becoming MichaelMichael@. The TEdit itself doubles the text which is already written inside of it, and then adds new characters after that.

It is a brand new Form project. I have not written a single line of code in this project.

The code is:

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.Edit;

type
  TForm1 = class(TForm)
    Edit_FirstName: TEdit;
    Edit_LastName: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

end.

The fmx file is:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 414
  ClientWidth = 247
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  DesignerMasterStyle = 0
  object EDIT_FirstName: TEdit
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    TabOrder = 2
    Position.X = 72.000000000000000000
    Position.Y = 56.000000000000000000
  end
  object EDIT_LastName: TEdit
    Touch.InteractiveGestures = [LongTap, DoubleTap]
    TabOrder = 1
    Position.X = 72.000000000000000000
   Position.Y = 88.000000000000000000
  end
end

How do I fix this? Can anyone help me?

1

There are 1 best solutions below

0
Remy Lebeau On