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

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

导读：目前 Firemonkey 有一个问题，就是在 Edit 按下会立即弹出键盘，在红鱼儿的博客也提交了 QC：被此问题所累的朋友，去投个票吧！下面想出暂时解决的方法（最终还是希望官方能修正这个问题）： span style="color: #0000ff;"procedure span style="color: #0

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

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

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

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;

（编辑：李大同）

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