procedure TStyledEdit.IMEStateUpdated;

var

  CombinedText: string;

begin

  CombinedText := FTextService.CombinedText;

  FTextLayout.Text := CombinedText;

  SetCaretPosition(GetOriginCaretPosition);

  Model.SetTextWithoutValidation(CombinedText);

  if FPrompt <> nil then

    FPrompt.Visible := CombinedText.IsEmpty;

{+++>}{$IF Defined(IOS) or Defined(ANDROID)} // 加入此行, 修正中文输入后会取消原选取文字的 BUG by Aone (2017.11.17)

  if Model.SelLength >  then

  begin

    Model.DisableNotify;

    try

      Model.SelLength := ;

    finally

      Model.EnableNotify;

    end;

    UpdateSelectionPointPositions;

  end;

{+++>}{$ENDIF} // 加入此行, 修正中文输入后会取消原选取文字的 BUG by Aone (2017.11.17)

  LinkObserversValueModified(Self.Observers);

  DoChangeTracking;

  DoTyping;

end;

procedure TStyledMemo.IMEStateUpdated;

...略...

    SelectionChanged := FSelected or (FSelStart <> LCaret) or (FSelEnd <> LCaret);

    CaretPosition := LCaret;

{+++>}{$IF Defined(IOS) or Defined(ANDROID)} // 加入此行, 修正中文输入后会取消原选取文字的 BUG by Aone (2017.11.17)

    FSelStart := LCaret;

    FSelected := False;

    FSelEnd := FSelStart;

    UpdateSelectionInModel;

{+++>}{$ENDIF} // 加入此行, 修正中文输入后会取消原选取文字的 BUG by Aone (2017.11.17)

    if SelectionChanged then

      UpdateSelectionPointPositions;

    if TextChanged then

      LinkObserversValueModified(Self.Observers);

  end;

end;