显示TStringGrid单元格的工具提示

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  CellCoord: TGridCoord;
  TooltipText: string;
begin
  CellCoord := StringGrid1.MouseCoord(X, Y);
  
  // 判断需要显示工具提示的条件，例如某个特定的单元格
  if (CellCoord.X = 1) and (CellCoord.Y = 1) then
  begin
    // 获取工具提示的文本内容
    TooltipText := '这是一个示例工具提示';
    
    // 使用TToolTip组件显示工具提示
    ToolTip1.ActivateHint(StringGrid1.ClientToScreen(Point(X, Y)), TooltipText);
    
    // 或者使用自定义的弹出窗口显示工具提示
    // ShowCustomTooltip(X, Y, TooltipText);
  end;
end;