[[ElDioni]]

Hola,

creo que esto te podría funcionar, lo he sacado del clubdelphi.

Código Delphi [-]
procedure TFrmMenuArt.DBGrid1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
gc: TGridCoord;
begin
gc:= DbGridArticulos.MouseCoord(x, y);
if (gc.X > 0) AND (gc.Y > 0) then
  begin
    DbGrid1.DataSource.DataSet.MoveBy(gc.Y - THackDBGrid(DbGrid1).Row);
    DbGrid1.Hint:=Adoquery1.fieldbyname('campo').AsString;
  end;
end;

Saludos.