如何通过Delphi编程让TabTip以数字模式显示？

我刚好做过类似的需求，这就给你梳理下可靠的实现方案——核心思路是通过系统API设置编辑框的输入范围，让TabTip自动适配数字面板，同时确保TabTip正确显示：

步骤1：导入必要的Windows API和常量 #

首先在你的Delphi单元中导入SetInputScope函数和输入范围常量，这个API用于告诉系统当前控件的输入类型：

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edtDecimal: TEdit; // 你的十进制编辑控件
    procedure edtDecimalEnter(Sender: TObject);
    procedure edtDecimalExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

// 导入输入范围设置API
function SetInputScope(hwnd: HWND; const InputScope: TInputScope): HRESULT; stdcall; external 'imm32.dll' name 'SetInputScope';

// 定义输入范围常量
const
  IS_DECIMAL = TInputScope(6);  // 十进制数字输入模式
  IS_DEFAULT = TInputScope(0);  // 默认输入模式

implementation

{$R *.dfm}

步骤2：处理编辑框的焦点事件 #

在编辑框的OnEnter事件中设置输入范围为十进制，并确保TabTip启动并显示；在OnExit事件中恢复默认输入范围（可选隐藏TabTip）：

焦点进入时切换数字模式 #

procedure TForm1.edtDecimalEnter(Sender: TObject);
var
  hTabTip: HWND;
  tabTipPath: string;
begin
  // 1. 设置当前编辑框的输入范围为十进制
  SetInputScope((Sender as TEdit).Handle, IS_DECIMAL);

  // 2. 查找并启动TabTip（如果未运行）
  hTabTip := FindWindow('IPTip_Main_Window', nil);
  if hTabTip = 0 then
  begin
    // 适配32/64位系统的TabTip路径
    if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
      if Is64BitOperatingSystem then
        tabTipPath := 'C:\Program Files (x86)\Common Files\microsoft shared\ink\TabTip.exe'
      else
        tabTipPath := 'C:\Program Files\Common Files\microsoft shared\ink\TabTip.exe';
    end;
    ShellExecute(0, 'open', PChar(tabTipPath), nil, nil, SW_SHOWNORMAL);
    // 短暂等待TabTip启动
    Sleep(200);
    hTabTip := FindWindow('IPTip_Main_Window', nil);
  end;

  // 3. 显示TabTip
  if hTabTip <> 0 then
    ShowWindow(hTabTip, SW_SHOW);
end;

焦点离开时恢复默认（可选） #

procedure TForm1.edtDecimalExit(Sender: TObject);
var
  hTabTip: HWND;
begin
  // 恢复编辑框的默认输入范围
  SetInputScope((Sender as TEdit).Handle, IS_DEFAULT);

  // 可选：隐藏TabTip，或保留让它自动切换回默认面板
  hTabTip := FindWindow('IPTip_Main_Window', nil);
  if hTabTip <> 0 then
    ShowWindow(hTabTip, SW_HIDE);
end;

关键说明 #

• SetInputScope是系统级API，通过设置控件的输入上下文，让TabTip自动识别并切换到对应的数字面板，兼容性比直接给TabTip发内部消息更好。
• 适配32/64位系统的TabTip路径，避免找不到程序的问题。
• 短暂的Sleep是为了确保TabTip完全启动后再进行操作，避免找不到窗口句柄。

内容的提问来源于stack exchange，提问作者Antonio Ribeiro