TListView.BeginUpdate导致无关控件无法显示提示问题求助

原因解析 #

你定位到的SendMessage(Handle, WM_SETREDRAW, 0, 0)确实是问题根源，但影响范围超出ListView的原因在于VCL的全局提示管理机制：

• VCL的提示窗口（THintWindow）由Application统一调度，鼠标悬停控件时触发的WM_MOUSEMOVE消息会通知Application检测并显示提示。
• 高频调用BeginUpdate/EndUpdate会频繁切换ListView的重绘状态，这个过程会干扰Application对控件状态的检测逻辑——未触发过提示的控件，其提示触发条件会因全局消息循环中重绘状态的频繁变更被忽略。
• 曾显示过提示的最后一个按钮仍能正常工作，是因为该控件的提示信息已被Application的提示管理器缓存，无需重新检测控件状态。

修复方案 #

方案1：合并更新操作，减少BeginUpdate调用频率 #

若实际代码中是线程通过Queue高频更新ListView，不要每次更新都调用BeginUpdate/EndUpdate，而是累积一批更新操作后再一次性执行：

// 示例：自定义更新任务结构体，批量处理更新
type
  TListItemUpdate = record
    Index: Integer;
    Caption: string;
    // 其他更新字段
  end;

var
  UpdateQueue: TList<TListItemUpdate>;

// 线程中添加更新任务
procedure TUpdateThread.Execute;
var
  Update: TListItemUpdate;
begin
  while not Terminated do
  begin
    // 模拟生成更新任务
    Update.Index := 0;
    Update.Caption := 'Updated Item';
    TThread.Queue(nil, procedure
    begin
      UpdateQueue.Add(Update);
    end);
    Sleep(250);
  end;
end;

// 批量执行更新的方法
procedure TForm1.ApplyBatchUpdates;
var
  I: Integer;
  Update: TListItemUpdate;
begin
  if UpdateQueue.Count = 0 then Exit;
  
  ListView1.Items.BeginUpdate;
  try
    for I := 0 to UpdateQueue.Count - 1 do
    begin
      Update := UpdateQueue[I];
      if ListView1.Items.Count > Update.Index then
        ListView1.Items[Update.Index].Caption := Update.Caption;
    end;
  finally
    ListView1.Items.EndUpdate;
    UpdateQueue.Clear;
  end;
end;

方案2：在EndUpdate后强制触发提示检测 #

如果无法降低调用频率，可在每次EndUpdate后，强制让Application重新检测鼠标位置的控件提示：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Form1.ListView1.Items do begin
    BeginUpdate;
    try
      Sleep(1); // 替换为实际更新逻辑
    finally
      EndUpdate;
      // 强制检测当前鼠标位置的提示
      if Application.ShowHint then
        Application.ActivateHint(Mouse.CursorPos);
    end;
  end;
end;

方案3：替代BeginUpdate/EndUpdate的轻量实现 #

原生BeginUpdate内部除了WM_SETREDRAW，还会做额外状态锁定，若仅需禁用重绘，可直接调用控件消息减少干扰：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // 手动禁用ListView重绘
  ListView1.Perform(WM_SETREDRAW, 0, 0);
  try
    Sleep(1); // 替换为实际更新逻辑
  finally
    // 恢复重绘并强制刷新
    ListView1.Perform(WM_SETREDRAW, 1, 0);
    ListView1.Invalidate;
    // 触发提示检测
    if Application.ShowHint then
      Application.ActivateHint(Mouse.CursorPos);
  end;
end;

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