Código Delphi
[-]
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
t : TGridCoord;
begin
t := DBGrid1.MouseCoord(X,Y);
DBGrid1.Hint := 'Columna ' + inttostr(t.X);
end;
con el showhint de la dbgrid a true.
un saludo.