如何在数字模式下显示tabtip？

Question

如何用delphi以编程方式在数字模式下显示

tabtip

？

当焦点位于文本编辑十进制类型时，我需要虚拟键盘 tabtip 仅显示数字。

Answer 1

我一直在寻找这个问题的答案，但没有找到。我认为您可以在表单的 OnShow 事件或 TEdit 本身的 OnEnter 事件上设置 TEdit 的输入范围。

将Winapi.MsCTF添加到uses中，并调用：

  ..
  SetInputScope(Edit1.Handle, IS_NUMBER);
  ..