多显示器切换模式时THintWindow.ActivateHintData抛出异常

核心原因 #

崩溃源于VCL提示系统在显示器配置变更（WIN+P切换模式）时，未正确处理提示窗口的句柄或资源释放逻辑。即使未显式设置组件ShowHint为True，VCL内部仍会初始化提示相关机制，而Application.ShowHint := False通过完全禁用提示系统规避了问题。要保留提示功能，可按以下方案修复：

1. 全局监听显示器变更，临时禁用提示 #

通过监听系统WM_DISPLAYCHANGE消息，在显示器切换前后临时关闭提示，完成后恢复：

• 在主窗体类声明中添加消息映射：

protected
  procedure WMDisplayChange(var Msg: TWMDisplayChange); message WM_DISPLAYCHANGE;

• 实现消息处理逻辑：

procedure TMainForm.WMDisplayChange(var Msg: TWMDisplayChange);
var
  RestoreTimer: TTimer;
begin
  inherited;
  // 切换开始时禁用全局提示
  Application.ShowHint := False;
  // 延迟500ms恢复，确保系统完成显示器配置更新
  RestoreTimer := TTimer.Create(nil);
  with RestoreTimer do
  begin
    Interval := 500;
    OnTimer := procedure(Sender: TObject)
      begin
        Application.ShowHint := True;
        TTimer(Sender).Free;
      end;
    Enabled := True;
  end;
end;

2. 针对单个组件按需启用提示 #

如果全局禁用影响体验，可给需要提示的组件添加鼠标事件，仅在悬停时启用提示：

procedure TMainForm.HintComponentMouseEnter(Sender: TObject);
begin
  Application.ShowHint := True;
  (Sender as TControl).ShowHint := True;
end;

procedure TMainForm.HintComponentMouseLeave(Sender: TObject);
begin
  (Sender as TControl).ShowHint := False;
  Application.ShowHint := False;
end;

注：需给所有带提示需求的组件绑定这两个事件，适合组件数量较少的场景。

3. 修复VCL底层BUG（针对旧版Delphi） #

若使用XE及更早版本Delphi，这可能是VCL已知BUG：

• 升级至最新Delphi版本，官方大概率已修复显示器切换时的提示窗口崩溃问题
• 手动修补VCL相关单元（如Controls.pas、ComCtrls.pas），确保提示窗口在显示器变更时正确销毁重建

4. 绑定提示窗口到主窗体 #

强制提示窗口的父句柄关联主窗体，避免切换时句柄失效：

// 在主窗体OnCreate事件中添加
Application.HintWindowClass.Parent := Self;

验证步骤 #

1. 开启应用中所有需要提示的组件功能
2. 使用WIN+P切换显示模式（扩展→仅电脑屏幕→扩展）
3. 检查应用是否仍出现崩溃

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