Maus-Ereignisse im Sringgrid

[Luckie]

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  MyRow, MyCol: Integer;
begin
  StringGrid1.MouseToCell(x, y, MyCol, MyRow);
  if MyRow = 0 then
    StringGrid1.Hint := 'Hello world'
  else
    StringGrid1.Hint := '';
end;