快捷搜索:
当前位置: 银河手机版app > 银河网投 > 正文

避免按下立即弹出键盘的问题

时间:2019-11-29 05:52来源:银河网投
  // 先将 Edit1.ReadOnly 设定为 Falseprocedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);begin // 在放开后,将 ReadOnly 设定为 False 后,才会弹出键盘 TEdit(Sender).Re

 

// 先将 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;

一时 Firemonkey 有一个标题,就是在 Edit 按下会立刻弹出键盘,在朝仔儿的博客也付出了 QC:

上面想出不常缓慢解决的艺术(最后依然期望官方能改善这几个标题):

被此主题素材所累的对象,去投个票呢!

编辑:银河网投 本文来源:避免按下立即弹出键盘的问题

关键词: