Как отобразить подсказку (Hint) при наведении курсора мыши на ячейку в DbGrid Delphi?

Предлагаю вам готовый код Delphi, реализующий отображение всплывающей подсказки при наведении курсора мыши на ячейку компонента DBGrid. Эта подсказка содержит в себе текст активной ячейки.

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePos: TPoint;
  CellCoord: TGridCoord;
  HintText: string;
begin
  // Получаем позицию мыши в координатах DBGrid
  MousePos := DBGrid1.ScreenToClient(Mouse.CursorPos);

  // Получаем координаты строки и колонки, на которой находится курсор мыши
  CellCoord := DBGrid1.MouseCoord(MousePos.X, MousePos.Y);

  // Проверяем, указывают ли координаты на конкретную строку и поле
  if (CellCoord.Y > 0) and (CellCoord.Y <= DBGrid1.DataSource.DataSet.RecordCount) and
     (DBGrid1.SelectedField <> nil) then
  begin
    // Получаем значение из активной ячейки
    HintText := DBGrid1.SelectedField.AsString;

    // Если значение не пустое, показываем Hint
    if HintText <> '' then
    begin
      DBGrid1.Hint := HintText;
    end;
  end;
end;