Desplazamiento horizontal en una rejilla

[sur-se]

Hola. Tengo una DBGrid en pantalla con RowSelect = True. Con las teclas de cursor puedo desplazarme arriba/abajo, pero no izqda/dcha para visualizar el resto de las columnas que no caben al ancho y quedan ocultas, teniendo que coger el ratón para efectuar ese desplazamiento. ¿Existe alguna forma de desplazar los campos de una DBGrid horizontalmente mediante un mensaje o método?
Salu2.

[roman]

Intenta esto en el evento OnKeyDown del DBGrid:

Código Delphi [-]
  if Key = VK_RIGHT then
  begin
    DBGrid1.Perform(WM_HSCROLL, SB_PAGERIGHT, 0);
    Key := 0;
  end
  else if Key = VK_LEFT then
  begin
    DBGrid1.Perform(WM_HSCROLL, SB_PAGELEFT, 0);
    Key := 0;
  end;

// Saludos

[Coco_jac]

Hola Roman, tengo un problema parecido, probe con lo que mencionas, pero me sale un error :

Identificador NO definido : WM_HSCROLL

Espero tus comentarios.
Gracias.