[修正] Firemonkey Windows & macOS 平台下 Edit & M

发布时间：2020-12-15 04:40:41 所属栏目：大数据来源：网络整理

导读：问题：Firemonkey Windows macOS 平台下 Edit Memo 中文输入后会取消原选取文字的 BUG 适用版本：Delphi 10.1.2 10.2.1 修正后效果：修正代码：请将 FMX.Edit.Style.pas复制到自己的工程目录下，再修改如下代码：（10.2.2 已修正此问题） = = FPrompt = M

问题：Firemonkey Windows & macOS 平台下 Edit & Memo 中文输入后会取消原选取文字的 BUG

适用版本：Delphi 10.1.2 & 10.2.1

修正后效果：

修正代码：

请将 FMX.Edit.Style.pas复制到自己的工程目录下，再修改如下代码：（10.2.2 已修正此问题）

== FPrompt <> = Model.SelLength > = ;

请将FMX.Memo.Style.pas 复制到自己的工程目录下，再修改如下代码：（10.2.2 正此问题）

SelectionChanged :</span>= FSelected <span style="color: #0000ff"&gt;or</span> (FSelStart <> LCaret) <span style="color: #0000ff"&gt;or</span> (FSelEnd <><span style="color: #000000"&gt; LCaret);
CaretPosition :</span>=<span style="color: #000000"&gt; 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)

<span style="color: #0000ff"&gt;if</span> SelectionChanged <span style="color: #0000ff"&gt;then</span><span style="color: #000000"&gt;
  UpdateSelectionPointPositions;
</span><span style="color: #0000ff"&gt;if</span> TextChanged <span style="color: #0000ff"&gt;then</span><span style="color: #000000"&gt;
  LinkObserversValueModified(Self.Observers);

end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

[修正] Firemonkey Windows &amp; macOS 平台下 Edit &amp; M

[修正] Firemonkey Windows & macOS 平台下 Edit & M