Lazarus中为TListView各列标题栏设置不同提示的求助

你原来的代码逻辑错误：把鼠标的X像素坐标和列的Index（序号，比如0、1、2）直接比较，两者完全不是同一类数值，所以不会触发正确的提示。

正确的实现步骤：

1. 确保你的lstDisponibles组件的ShowHint属性设为True，否则提示信息不会显示。
2. 在MouseMove事件中，先判断鼠标是否处于列标题区域，再获取对应的列索引，最后设置对应提示。

完整代码示例：

procedure TfConsolidados.lstDisponiblesMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  HitInfo: THitTests;
  ColumnIndex: Integer;
begin
  // 获取鼠标位置对应的ListView区域信息
  HitInfo := lstDisponibles.GetHitTestInfoAt(X, Y);
  
  // 判断是否悬停在列标题上
  if htOnColumnHeader in HitInfo then
  begin
    // 根据X坐标获取当前悬停的列索引
    ColumnIndex := lstDisponibles.GetColumnAt(X);
    
    // 按列索引设置对应提示
    case ColumnIndex of
      0: lstDisponibles.Hint := 'Incidencias';
      1: lstDisponibles.Hint := '这里替换成第二列的提示';
      2: lstDisponibles.Hint := 'Incluida en hoja de ruta';
      3: lstDisponibles.Hint := '这里替换成第四列的提示';
    end;
    
    // 手动触发提示显示，避免延迟
    Application.ActivateHint(Point(X, Y));
  end
  else
    lstDisponibles.Hint := '';
end;

关键说明：

• GetHitTestInfoAt：用来检测鼠标落在ListView的哪个区域，htOnColumnHeader代表列标题区域。
• GetColumnAt：根据鼠标的X坐标，返回对应的列索引，这才是正确获取悬停列的方式。
• Application.ActivateHint：部分情况下，系统提示可能有延迟，调用这个方法可以立即显示提示。

内容的提问来源于stack exchange，提问作者Javier Armas Suarez