1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TTagesDetail.ShowCellHint(X, Y: Integer);
var
  ACol, ARow: Integer;
begin
  //ShowHint auf True setzen
  if StringGrid.ShowHint = False then
    StringGrid.ShowHint := True;

  //Col und Row Position lesen
  StringGrid.MouseToCell(X, Y, ACol, ARow);
  //wenn im gültigen Bereich zeige Zelleninhalt als Hint
  if (ACol <> -1) and (ARow <> -1) then
    StringGrid.Hint := StringGrid.Cells[ACol, ARow];
  if (ACol <> LastCol) or (ARow <> LastRow) then
  begin
    Application.CancelHint;
    LastCol := ACol;
    LastRow := ARow;
  end;
end;