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

目前 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;

 

posted @ 2016-04-08 14:03  龟山Aone  阅读(1420)  评论(0编辑  收藏  举报