目前 Firemonkey 有一个问题，就是在 Edit 按下会立即弹出键盘，在红鱼儿的博客也提交了 QC：
http://blog.sina.com.cn/s/blog_44fa172f0102vy2q.html
被此问题所累的朋友，去投个票吧！
下面想出暂时解决的方法（最终还是希望官方能修正这个问题）：
// 先将 Edit1.ReadOnly 设定为 False procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
// 在放开后，将 ReadOnly 设定为 False 后，才会弹出键盘
TEdit(Sender).ReadOnly := False;
end; procedure TForm1.Edit1Exit(Sender: TObject);
begin
// 移开焦点后，再设定 ReadOnly 为 Treue
TEdit(Sender).ReadOnly := True;
end;