如何在TEdit聚焦时隐藏(并再次显示)软键盘DELPHI XE7

pudnivec74

您能帮我在TEdit聚焦时如何隐藏(并再次显示)软键盘吗?

pudnivec74

我有一个解决方案:

  1. .dpr中VKAutoShowMode设置Never

    begin
      Application.Initialize;
      VKAutoShowMode := TVKAutoShowMode.Never;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end. 
    
  2. 在窗体上显示软键盘(例如,在TEdit.OnEnter事件上)

    var
      FService: IFMXVirtualKeyboardService;
    begin
      TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
      if (FService <> nil) then
      begin
        FService.ShowVirtualKeyboard(Edit1);
        Edit1.SetFocus;
      end;
    
  3. 在窗体上隐藏软键盘(Edit1仍将使用隐藏的软键盘进行聚焦)

    var
      FService: IFMXVirtualKeyboardService;
    begin
      TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService));
      if (FService <> nil) then
      begin
        FService.HideVirtualKeyboard;
        Edit1.SetFocus;
      end;
    

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

Delphi XE7 Android全屏(隐藏软键)

来自分类Dev

旋转图像Delphi XE7

来自分类Dev

Delphi Console XE7透明屏幕

来自分类Dev

文字提示Delphi XE7

来自分类Dev

Delphi XE7智能指针

来自分类Dev

使用参数Delphi XE7 Firedac

来自分类Dev

使用Delphi XE7并行库

来自分类Dev

在Delphi XE7 Android中的Messagedlg

来自分类Dev

Delphi XE7 Android Indy IRC

来自分类Dev

Delphi XE7 XML文档

来自分类Dev

如何在Delphi XE7中关闭自动引用?

来自分类Dev

通过滚动/移动消息显示信息delphi xe7

来自分类Dev

通过滚动/移动消息显示信息delphi xe7

来自分类Dev

如何更改Delphi XE7的IDE语言

来自分类Dev

无法在Delphi XE7中删除控件

来自分类Dev

Delphi XE7中的默认库路径无效

来自分类Dev

在delphi XE7中使用UrlCreateFromPath

来自分类Dev

Delphi XE7 MultiDevice SQL错误TIMESTAMP保留。场地

来自分类Dev

clientdataset中的Delphi XE7 + Rest / Json + Facebook组

来自分类Dev

Delphi XE7在关机时崩溃

来自分类Dev

什么是Delphi XE7中的“ HotfixLevel 2”?

来自分类Dev

Delphi XE7 MultiDevice SQL错误TIMESTAMP保留。场地

来自分类Dev

C++ 函数到 Delphi XE7

来自分类Dev

在Delphi XE2和Delphi XE7中LongMonthNames的用法

来自分类Dev

TEdit的MaxLength在带有DELPHI XE7的Android上不起作用(更新1)

来自分类Dev

如何在Delphi XE7中设置“版本信息”?[Delphi设计问题]

来自分类Dev

如何在Delphi XE7上的其他过程中执行TTakePhotoFromCameraAction?

来自分类Dev

在Delphi XE7中,如何在变体点之后获取功能和属性建议?

来自分类Dev

使用多设备应用程序在Delphi xe7中的StatusBar中显示数据