Saber en que columna de un dbgrid esta el mouse

[gesjug]

Verán necesito que cuando pase el mouse por encima de determinadas columnas muestre el hint del datagrid, pero solo en determinadas columnas, eso digo yo que activando y desactivando el hint del dbgrid al detectar que esta en esas columnas, el problema es que no se como hacer para saber en que columna esta solo moviendose, sin hacer click ni nada.
He revisado los foros y no he sabido hacerlo, he visto algunos con el mismo problema pero no se como lo resuelven y las soluciones que veo son para stringgrid no para dbgrid.
Si me pudieran echar una mano estaria muy agradecido.
Un saludo y gracias por su tiempo

[[coso]]

Hola. Prueba con esto:

Código Delphi [-]
procedure TForm1.DBgrid1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
          p : TGridCoord;
begin
          p := DBGrid1.MouseCoord(X,Y);
          DBGrid1.Hint := DBGrid1.Columns[p.x-1].FieldName;
end;

Tambien puedes echar un vistazo a TCustomGrid.Hittest

[*Caro*]

Hola, puedes hacerlo con la función MouseCoord de tu DBGrid.

Código Delphi [-]
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 Coordenadas : TGridCoord;
begin
 Coordenadas := DBGrid1.MouseCoord(X,Y);
 Edit11.Text := IntToStr(Coordenadas.X); //Columna
 Edit12.Text := IntToStr(Coordenadas.Y); //Fila
end;

Saluditos

[gesjug]

Hola:

Gracias por sus respuestas.
Lo que yo intento no es saber las coordenadas del mouse, si no saber cuando el mouse esta sobre una determinada columna, para, en ese momento, desplegar el hint del dbgrid.

[[coso]]

Hola de nuevo. Eso es exactamente lo que hace DBGrid.MouseCoord. saludos.

[*Caro*]

Hola de nuevo, como te dice el amiguito coso, eso es lo que hace el MouseCoord te da la fila y columna donde esta el mouse, donde X es la columna y Y es la fila. En tu codigo solo debes preguntar si es esa columna

Código Delphi [-]
begin
 Coordenadas := DBGrid5.MouseCoord(X,Y);

 if Coordenadas.X = 2 then 
  DBGrid5.Showhint := True //Si es columna 2 mostramos el hint
 else
  DBGrid5.Showhint := False; // sino no mostramos hint

Saluditos

[gesjug]

funciona perfecto.
Muchas gracias