[调整] Firemonkey TEdit 避免按下立即弹出键盘的问题

目前 Firemonkey 有一个问题，就是在 Edit 按下会立即弹出键盘，在红鱼儿的博客也提交了 QC：

被此问题所累的朋友，去投个票吧！

下面想出暂时解决的方法（最终还是希望官方能修正这个问题）：

<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X,Y: Single);
<span style="color: #0000ff;">begin
<span style="color: #008000;">//<span style="color: #008000;"> 在放开后，将 ReadOnly 设定为 False 后，才会弹出键盘
TEdit(Sender).ReadOnly :=<span style="color: #000000;"> False;
<span style="color: #0000ff;">end<span style="color: #000000;">;

<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.Edit1Exit(Sender: TObject);
<span style="color: #0000ff;">begin
<span style="color: #008000;">//<span style="color: #008000;"> 移开焦点后，再设定 ReadOnly 为 Treue
TEdit(Sender).ReadOnly :=<span style="color: #000000;"> True;
<span style="color: #0000ff;">end;